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ABSTRACT:  PC-STABL3D  is  the  program  for  IBM  PC  compatible 
computers,  developed  to  handle  general  stability  analysis  of  three-dimensional 
slopes.  Random  generation  routines  are  invoked  to  create  trial  failure 
surfaces,  which  are  analyzed  using  the  limiting  equilibrium  approach.  The 
factors  of  safety  predicted  by  the  program  are  statistically  analyzed  using  the 
WeibuU's  distribution  and  the  minimum  statistical  factor  of  safety  is  calculated 
as  a  result  of  this  analysis.  The  information  about  minimum  statistical  factor 
of  safety  may  help  user  to  evaluate  reliability  of  the  obtained  critical  failure 
surface.  The  current  version  of  PC-STABL3D  is  enhanced  by  a  graphical 
pre/postprocessor,  which  facilitates  creation  and  edition  of  data  files, 
examination  of  problem  geometry,  and  analyzing  of  the  obtained  failure 
surfaces.  The  manual  also  contains  a  step-by-step  tutorial  and  example 
problems  which  are  solved  using  PC-STABL3D.  The  contents  of  this  report 
summarize  a  series  of  previous  research  efforts  relating  to  three-dimensional 
slope  stability,  conducted  under  the  guidance  of  Prof.  C.  W.  Lovell  and  Prof. 
J-L.  Chameau. 
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1.0   INTRODUCTION 

PC-STABL3D  is  a  computer  program  written  in  FORTRAN  77  computer 
language  for  the  general  solution  of  three  dimensional  slope  stability  problems.    It 
is  compiled  using  a  Microsoft  FORTRAN  4.1  (R)'  compiling  package.    The 
calculation  of  the  factor  of  safety  against  the  instability  of  a  slope  is  performed  by 
the  general  three-dimensional  method  of  columns  developed  at  Purdue  University 
(Chen,  1981;  Thomaz,  1986). 

PC-STABL3D  features  unique  random  techniques  for  generation  of 
potential  failure  surfaces  for  subsequent  determination  of  the  most  critical  surface 
and  its  corresponding  factor  of  safety.    The  surfaces  are  generated  within  limits 
determined  by  the  user. 

PC-STABL3D  is  supplied  with  a  graphical  pre/postprocessor  to  facilitate 
and  visualize  the  input/output  process.    The  pre/postprocessor  includes  a  simple 
editor  developed  for  the  creation  and  editing  of  the  PC-STABL3D  data  files. 
Graphical  capabilities  of  the  pre/postprocessor  allow  the  user  to  check  the 
correctness  of  the  problem  geometry  and  to  view  resulting  failure  surfaces.    The 
graphical  pre/postprocessor  is  written  in  the  QuickBASIC  4.5  (R)^  computer 
language. 

The  program  performs  statistical  analysis  of  received  factors  of  safety. 
The  value  of  the  minimum  statistical  factor  of  safety  is  calculated  as  a  result  of 
this  analysis.    The  analysis  is  performed  using  the  extreme  value  distribution  for 
minimums.   This  distribution  is  also  called  WeibuU's  distribution.   The 
theoretical  background  for  this  analysis  is  presented  in  Appendix  A. 


Microsoft  FORTRAN  4.1  is  a  registered  trademark  of  Microsoft  Corporation. 
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QuickBASIC  4.5  is  a  registered  trademark  of  Microsoft  Corporation. 


Appendix  B  contains  examples  of  the  input  and  output  files.    These 
examples  show  capabilities  of  PC-STABL3D  to  predict  factor  of  safety  for 
concave  in  plan  slopes.    The  time  to  run  these  examples  with  500  iterations  using 
PC  486  was  an  average  of  4-5  minutes.    The  source  code  of  the  program  can  be 
found  in  Appendix  C.    The  first  part  is  the  source  code  of  the  main  program,  and 
the  second  is  the  source  code  of  the  grapfical  pre/postprocessor. 

The  minimum  memory  required  for  the  program  is  640kB.    Though  the 
program  is  available  for  computers  with  and  without  a  math  coprocessor,  it  is 
advisable  to  run  the  program  with  a  math  coprocessor  to  increase  the  speed  of 
calculations. 

This  manual  is  not  intended  to  totally  explain  how  PC-STABL3D  operates 
or  what  assumptions  are  made  to  arrive  at  a  solution.    For  a  more  detailed 
explanation  of  the  logical  operation  of  PC-STABL3D  and  mathematical  models 
employed  refer  to  Thomaz  (1986)  and  Chen  (1981). 

2.0   PROBLEM  GEOMETRY 

To  begin,  the  user  must  plot  the  problem  geometry  to  scale  on  a 
rectangular  coordinate  grid.    Due  to  the  three-dimensional  nature  of  the  problem, 
the  following  procedure  is  suggested  in  order  to  prepare  data  points  for  the 
program.    The  system  for  representing  the  geometry  of  the  problem  will  consist 
of  a  three-dimensional  cartesian  system.    The  user  must  define  three  orthogonal 
axes,  X,  Y,  and  Z.    The  horizontal  plane  should  be  defined  by  axes  X  and  Y; 
then  the  Z  will  represent  the  elevations  of  the  layers  and  ground  profiles.    During 
the  determination  of  this  coordinate  system  the  user  should  remember  that  the 
direction  of  the  slides  being  investigated  is  along  the  Y  axis.    Figure  1  shows  the 
representation  of  the  sliding  axes  described  above. 

The  next  step  consists  of  defining  the  points  (coordinates)  that  will 
represent  the  geometry.    The  way  these  coordinates  are  to  be  defined  is  shown  on 
Figure  2.    The  user  will  need  to  define  a  grid  consisting  of  cross  sections  of  the 
slope  parallel  to  the  X  and  to  the  Y  axes.   The  spacings  between  these 


Figure  1  System  of  Coordinates    (After  Thomaz,  1986) 


Figure  2  Grid  of  Cross  Sections   (After  Thomaz,  1986) 
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cross   sections  do  not  need  to  be  the  same,      nevertheless,    it  is  highly 
recommended  that  the  variations  in  the  spacing  are  minimal. 

The  horizontal  projection  of  the  resulting  mesh  can  be  seen  as  a  series 
of  axes  in  the  X  direction  and  another  series  in  the  Y  direction.  The 
intersections  of  this  mesh  are  the  points  that  will  define  the  geometry  of  the 
problem  on  the  horizontal  surface. 

These  points  can  be  perceived  as  locations  of  boreholes.  For  each  of 
the  points,  the  user  must  define  the  elevations  of  the  ground  surface,  as  well 
as  the  elevations  of  the  different  soil  layers  and  piezometric  surfaces. 

2.1  Soil  Boundaries 

After  the  grid  has  been  prepared,  the  user  needs  to  define  soil 
boundaries  by  specifying  the  elevations  of  the  different  soil  layers  at  each  of 
the  nodes  of  the  grid.  The  resulting  profile  will  be  represented  by  line 
segments  connecting  the  nodes  of  the  corresponding  soil  layer  for  each  cross 
section  in  the  X  and  Y  directions  (Figure  3).  The  position  of  the  cross 
sections  should  be  selected  so  that  no  important  feature  of  the  subsoil  is 
incorrectly  represented.  To  simplify  positioning  of  cross  sections  the  user  can 
use  the  pre/postprocessor,  which  is  described  later  in  this  manual. 

2.2  Definition  of  Searching  Boundaries 

The  appropriate  choice  of  the  searching  boundaries  can  considerably 
optimize  the  surface  searching  process  and  hence  reduce  the  amount  of  time 
involved  in  the  search  by  avoiding  the  generation  of  "useless"  surfaces. 
Useless  surfaces  are  those  with  little  or  no  probability  of  being 


Figure  3  Main  Sliding  Axis  of  the  Cross  Section 


critical  (surfaces  passing  through  sound  rock,  for  instance).  Some  engineering 
judgment  is  thus  required  when  defining  the  region  to  be  searched. 

It  should  be  noted  that  even  if  the  boundaries  are  very  wide,  the 
resulting  critical  region  will  still  be  the  same.  Nevertheless,  the  amount  of 
time  necessary  to  arrive  at  this  final  region  will  be  much  higher,  since  a  higher 
percentage  of  the  generated  surfaces  will  probably  lie  outside  of  the  critical 
region  of  the  slope. 

Definition  of  the  boundaries  consists  of  three  steps: 
Definition  of  the  main  sliding  axis; 

Definition  of  the  region  on  the  ground  surface  within  which  the 
surfaces  are  predicted  to  initiate  and  to  terminate; 
Definition  of  the  region  within  the  soil  mass  which  is  to  be 
processed  by  the  program. 

2.2.1   Definition  of  the  Main  Sliding  Axis 

The  program  requires  the  creation  of  a  main  sliding  axis,  which  is  to 
be  defined  parallel  to  the  Y  axis  as  it  is  shown  on  Figure  4.  The  main  sliding 
axis  is  actually  one  of  the  cross  sections  already  defined  above.  The  location 
for  this  cross  section  should  be  chosen  in  a  way  so  that  it  will  lie  along  or  as 
close  as  possible  to  the  axis  of  symmetry  of  the  sliding  mass.  For  instance, 
if  the  user  previously  defined  11  cross  sections  in  the  Y  direction,  the  best 
choice  for  the  main  sliding  axis  would  be  the  cross  section  number  6.  It  is 
very  important  to  select  an  appropriate  cross  section  for  the  main  sliding  axis, 
because  it  will  define  initial  points  for  failure  surface  generation. 
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Figure  4  Plan  View  of  the  Slope 
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2.2.2   Ground  Surface  Boundary 

The  ground  surface  boundary  is  the  region  where  the  intersection  line 
between  failure  surfaces  and  the  ground  surface  is  located.  The  best  way  to 
understand  how  this  boundary  is  established  is  to  consider  a  plan  view  of  the 
slope  (Figure  5).  The  previously-defined  cross  sections  now  appear  as  a  mesh, 
and  intersections  between  failure  surfaces  and  the  ground  surface  will  be 
represented  by  the  polygon.  Now  the  user  will  have  to  define  boundaries  for 
this  polygon  in  the  X  and  Y  directions. 

2.2.2.1  Limits  in  Y  Direction 

The  user  must  define  limits  in  the  Y  direction  on  the  main  axis  of 
sliding  (Figure  6).  To  establish  the  region  within  which  the  initial  points  of 
the  generated  surface  are  expected  to  lie,  define  a  minimum  value  Y,  „;„  and 
a  AY,  ^■^.  The  trial  surfaces  will  be  initialized  only  from  points  located  in  the 
region  between  coordinates  Yi,„^  and  Y-,^-^  +  AY,,„i„.  Similarly  the  user  must 
define  the  region  on  the  main  sliding  axis  for  termination  of  the  trial  surfaces, 
which  will  be  contained  between  coordinates  Yf,„,„  and  Yf,n,„  +  AYf„,„.  After 
the  limits  in  the  Y  direction  are  defined,  the  user  will  need  to  define  limits  in 
the  X  direction. 

2.2.2.2  Limits  in  X  Direction 

The  procedure  to  define  the  limits  in  the  X  direction  is  basically  the 
same  as  that  for  the  Y  direction,  but  now  these  regions  must  be  defined  for 
each  of  the  cross  sections  in  the  X  direction  (Figure  7).  The  user  will  define 
the  leftmost  coordinate  of  the  surface  initiation  X;  ^^  with  the  corresponding 
surface  initiation  interval  AX;  ^■^,  and  the  leftmost  coordinate  of  the  surface 
termination  Xf^i„  with  the  corresponding  surface  termination  interval  AXf,„,„. 
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Figure  6  Definition  of  Limits  in  X  Direction 
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Figure  7  Definition  of  Limits  in  Z  Direction 
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If  these  values  were  defined  correctly,  the  failure  surface  will  be  initiated  in 
the  region  from  X;  ^-^  to  X;  „^  +  AX;  „;„,  and  terminated  in  the  region  from 

Xfmin  to  Xf^u,    +    AXfmu,. 

2.2.2.3   Boundaries  Within  the  Soil  Mass 

After  the  user  has  determined  the  surface  boundaries  of  the  sliding 
mass,  the  region  inside  the  soil  mass  where  the  failure  surfaces  are  to  be 
generated  must  be  defined. 

The  procedure  used  to  define  the  region  for  surfaces  generation  within 
the  soil  mass  (in  Z  direction)  is  very  similar  to  that  used  to  define  the  surface 
boundaries.  For  each  node  of  the  mesh  the  user  will  define  the  minimum 
coordinate  Z^,„  and  the  distance  AZ^|„.  The  minimum  coordinate  Z„^  is  the 
maximum  depth  of  failure  surface  generation,  the  coordinate  Z^^  +  AZ^^,  is 
the  minimum  depth  of  the  failure  surface  generation. 

Boundaries  within  the  soil  mass  can  be  used  to  limit  surface  generation 
to  a  specified  region,  for  instance,  when  the  soil  profile  contains  weak  layers, 
or  sound  rock.  It  is  also  helpful  to  make  several  computer  runs  of  the 
program  progressively  optimizing  the  region  to  be  searched,  in  order  to 
achieve  the  most  reliable  solution. 

The  routine  for  surface  generation  contains  automatic  checks  and 
numerical  bias  to  control  the  shapes  of  the  surfaces;  however  the  imposed 
search  limit  boundary  restrictions  always  have  precedence  over  any  other 
methodology  used  in  the  program. 
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3.0  SOIL  PARAMETERS  AND  GROUND  WATER 

3.1  Soil  Parameters 

Each  soil  type  is  described  by  the  following  set  of  isotropic  parameters: 
the  moist  or  saturated  unit  weight  7,  the  Mohr-Coulomb  strength  intercept  c 
(cohesion),  and  the  Mohr-Coulomb  strength  angle  0.  The  program  performs 
calculations  using  the  total  weight  and  total  boundary  force  approach. 
However  with  the  measurement  or  prediction  of  pore  pressure,  either  a  total 
stress  or  an  effective  stress  analysis  may  be  undertaken.  Moist  unit  weight  is 
assumed  above  the  water  level;  saturated  unit  weight  below  it. 

3.2  Ground  Water 

The  ground  water  conditions  can  be  represented  using  one  of  the  two 
descriptors:  coordinates  of  the  piezometric  surfaces  and  values  of  the  pore 
pressure  ratio.    The  former  is  most  commonly  applied. 

NOTE:  When  there  is  no  ground  water  present,  water  conditions  are 

described  as  having  a  pore  pressure  ratio  equal  to  zero,  and  7 
is  the  moist  unit  weight. 

In  the  two  dimensional  program  (PC  STABL  5M),  the  water  pressure 
produced  by  a  piezometric  surface  may  be  defined  by  three  options.  In  the 
current  program  only  the  simple  equivalent  hydrostatic  value  is  used.  The  user 
will  need  to  define  piezometric  surfaces  involved  in  the  analysis  in  the  same 
way  as  for  the  soil  layers.  For  each  point  of  the  mesh,  the  elevation 
corresponding  to  each  of  the  piezometric  surfaces  must  be  described. 
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The  piezometric  surfaces  may  lie  anywhere  within  the  region  being 
defined.  They  can  be  above  the  ground  surface  or  coincide  with  it  at  different 
points.  If  more  than  one  piezometric  surface  is  defined  and  one  of  them 
represents  a  body  of  water,  such  as  lake  or  river,  it  should  be  assigned  to  the 
first  layer  of  the  soil.  The  program  will  check  if  the  first  piezometric  surface 
lies  above  the  ground,  and  wherever  it  does,  it  will  add  the  weight  of  water 
to  the  calculations  of  the  total  weight  of  the  column.  If  a  piezometric  surface 
which  is  located  above  the  ground  surface,  is  not  the  one  assigned  to  the  top 
layer,  the  water  will  be  considered  for  pore  pressure  calculation  only. 

The  pore  pressure  ratio  r„  is  the  ratio  of  the  pore  pressure  to  the 
vertical  total  stress  at  the  given  elevation. 


4.0    DATA  PREPARATION 

The  user  can  create  input  files  for  the  PC-STABL3D  program  using 
either  the  supplied  pre/postprocessor  or  a  conventional  editor.  In  both  cases 
the  format  of  the  data  file  will  be  the  same.  Therefore  the  input  file  format, 
described  in  this  section,  is  applicable  to  files  created  with  both  the 
conventional  editor  and  the  pre/processor.  In  order  to  simplify  generation  of 
data  file  with  an  editor,  all  data  used  in  the  program  are  read  in  the  free-form 
format;  hence  users  do  not  need  to  be  concerned  about  missing  periods  or 
extra  blanks  between  numbers. 

The  format  of  the  data  file  is  described  below.  A  new  line  should  be 
started  whenever  a  DATA  CARD  statement  is  encountered. 
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SOIL  PROFILE 

DATA  CARD       'PC-STABL3D  Version  2.0' 

NOTE:  ne  previous  data  card  is  intended  for  identification  of  the 

PC-STABL3D  data  files.  TJierefore  it  must  be  printed  exactly 
as  it  appears  in  the  text  of  this  manual,  starting  from  the  first 
left  column. 

DATA  CARD       Number  of  cross  sections  in  the  X 
direction 

Number  of  cross  sections  in  the  Y 
direction 

DATA  CARD       Coordinates  X  of  cross  sections 
parallel  to  the  Y  axis 

DATA  CARD       Coordinates  Y  of  cross  sections 
parallel  to  the  X  axis 

NOTE:  For  the  mo  previous  data  cards,  put  as  many  data 

entries  as  fit  on  each  line,   until  the  last  value  is 
reached. 


DATA  CARD       Coordinates  Z  for  all  nodes  of  the 

cross  section  X,,   starting  from 
the  intersection  of  cross  sections 


17 

Xi  and  Y,,  and  for  all  subsequent 
intersections  of  Xj  and  Y; 

NOTE:  Repeat  the  previous  data  card  for  each  consequent  cross  section 

Xj.  Put  as  many  data  entries  as  fit  on  each  line,  until  the  last 
value  is  reached. 

GENERATION  LIMITS 


DATA  CARD 


The  number  i  of  the  cross  section 
X,  corresponding  to  main  sliding 
axis. 


DATA  CARD 


Minimum  coordinate  Y;  „,;„  of  the 
trial  surfaces  initiation  region 
for  the  main  sliding  axis 


Interval    of 
initiation  AY:, 


trial 


surfaces 


Minimum  coordinate  Yf  ^-^  of  the 
trial  surfaces  termination  region 
for  the  main  sliding  axis 


Interval    of    trial 
termination  AYf^i„ 


surface 


DATA  CARD 


Minimum  coordinate  X;  „,;„  of  the 
trial  surfaces  initiation  region 
for  the  second  cross  section 
parallel  to  the  Y  axis  (Y,) 
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Interval  of  trial  surface 
initiation  AX^^j^  for  the  same  cross 
section 


NOTE:  Repeat  previous  data  card  for  all  consecutive  cross  sections 

parallel  to  the  Y  axis  starting  from  cross  section  Yj,  and 
terminating  with  the  one  before  the  last. 

DATA  CARD      Minimum   coordinate   Z^^,   below 

which  surfaces  will  not  be 
generated  for  the  each  node  of  the 
first  cross  section  parallel  to 

the  Y  axis  (Yi) 

J" 

Interval  AZ^i„,  such  that  surfaces 
would  not  be  generated  above  the 
coordinate  Z^-^  +  AZ^^  for  the 
corresponding  node. 

NOTE:  For  the  previous  data  card  put  as  many  data  values  for  the  all 

consecutive  nodes  of  the  first  cross  section,  then  repeat  this  data 
card  for  consecutive  cross  sections  parallel  to  the  Y  axis 
terminating  with  the  last  cross  section. 

SOIL  PROPERTIES 

DATA  CARD       Moist  or  saturated  unit  weight  7. 

Strength  intercept  c,  or  c'  for 
effective  stress  analysis. 
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Strength  angle  0,  or  0'  for 
effective  stress  analysis 

NOTE:  Repeat  previous  data  card  for  each  soil 

WATER  CONDITIONS 

DATA  CARD      Water   conditions   representation 

code.  Enter  1  for  pore  pressure 
ratio,  0  for  piezometric  surface 

IF  PORE  PRESSURE  RATIO  IS  SELECTED,  THEN: 

DATA  CARD       Pore  pressure  ratio  r„ 

IF  PIEZOMETRIC  SURFACE  IS  SELECTED: 

DATA  CARD       Coordinate  Z  of  the  piezometric 

surface  for  each  node  of  the  first 
cross  section  parallel  to  the  X 
axis 

NOTE:  Repeat  previous  data  card  for  all  consecutive  cross  section  in 

the  Y  direction,  then  repeat  all  soil  condition  data  cards  for 
each  soil  layer 
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5.0  GRAPHICAL  PRE/POSTPROCESSOR 

5.1  Overview 

A  graphical  pre/postprocessor  facilitates  creation  of  the  data  files  and 
allows  the  user  to  view  geometry  of  the  original  slope  and  failure  surfaces. 
The  following  operations  can  be  performed  using  a  pre/postprocessor: 

creating  of  the  data  file 

editing  of  the  existing  data  file 

viewing  the  cross  sections  of  the  existing  slope 

viewing  the  contour  plan  of  the  existing  slope 

viewing  the  cross  section  of  the  slope  after  failure 

viewing  the  contour  plan  of  the  slope  after  failure 

The  convenience  of  the  pre/postprocessor  operation  is  facilitated  by  use 
of  the  sliding  bar  and  pop-up  menus.  The  picture  of  the  main  menu  which 
appears  on  the  computer  screen  after  the  program  is  invoked  is  shown  on 
Figure  8.  The  user  can  choose  one  of  the  following  options  from  the  main 
menu: 

1.  Create  Data  File 

2.  Edit  Existing  Data  File 

3.  Read  Data  File 

4.  Plot  3D  Geometry 

5.  Plot  Cross  Sections 

6.  Run  PC-STABL3D 

7.  Plot  3D  Surface  Contours 

8.  Plot  Surface  Cross  Section 
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9.         Exit  Program 

The  user  can  examine  the  options,  moving  the  highlighting  bar  with  the 
Up"  and  "Down"  arrow  keys,  and  choose  the  option  by  pressing  the  "Enter" 
key.  The  "Esc"  key  will  bring  the  user  to  the  previous  screen  or  to  the 
previous  input  field.  The  subsequent  paragraphs  describe  a  typical  session 
with  the  pre/postprocessor. 

5.2    Creation  and  Edition  of  Data  Files 

To  start  creation  of  the  data  file,  choose  "Create  Data  File"  option  and 
press  "Enter".  The  program  will  prompt  for  the  name  of  the  file  where  the 
data  are  contained,  as  shown  on  Figure  9.  Note  that  if  a  file  with  the  same 
name  already  exists,  it  will  be  overwritten,  and  its  contents  will  be  lost. 
Therefore  the  user  must  be  certain  to  use  an  original  file  name.  An  edition 
can  be  suspended  at  any  time  by  pressing  "Ctrl"  and  "End"  keys 
simultaneously.  After  the  name  of  the  data  file  has  been  entered,  press 
"Enter"  to  go  to  the  next  screen. 

This  screen  (Figure  10)  prompts  for  the  number  of  grid  points  in  X  and 
Y  directions  and  number  of  soil  layers.  As  previously  mentioned,  the  grid  will 
be  used  to  represent  the  soil  profile.  If  an  error  has  been  made  entering  the 
numerical  values,  go  back  by  pressing  the  "Esc"  key.  Press  the  "Enter"  key 
after  each  value  is  entered  to  go  to  the  next  field.  The  next  screen  (Figure  1 1) 
prompts  for  the  actual  coordinates  of  the  points.  The  user  enters  coordinates 
subsequently  first  for  all  points  in  X  direction  and  then  for  all  points  in  Y 
direction.  After  the  grid  has  been  entered,  the  computer  prompts  for  the  Z 
coordinate  of  the  soil  for  each  node  of  the  mesh  (Figure  12).   This  procedure 
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Figure  9         Prompt  for  Name  of  Data  File 
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PC  STfiBL3D       3  Dinensional  Slope  Stability  Program 
Uersion  1.1 


Figure  10        Prompt  for  the  Number  of  Grid  Points 
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Figure  11        Prompt  for  the  Horizontal  Coordinates  of  Nodes 
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layers  coordinates  for 

each  grid  point : 
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Re«e«ber  to  use  consistent 

length  units. . . 

- 

Figure  12        Prompt  for  the  Vertical  Coordinates  of  Nodes 
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is  then  reiterated  for  eacii  soil  layer. 

The  following  step  is  the  entering  of  the  failure  surface  generation 
constraints.  As  noted  before,  a  principal  axis  of  sliding  should  be  defined 
first.  Figure  13  shows  the  window  for  entering  the  above  data.  As  can  be 
seen,  after  the  main  sliding  axis  is  defined,  the  computer  prompts  for  the 
initial  and  termination  values  of  Y  for  the  main  axis,  and  corresponding 
initiation  and  termination  intervals.  The  next  window  (Figure  14)  prompts  for 
initiation  values  for  surface  generation  in  the  direction  parallel  to  the  Y  axis 
for  each  subsequent  Y  axis.  These  values  are  entered  along  with  the 
corresponding  surface  generation  intervals.  The  last  part  of  the  definition  of 
failure  surface  generation  is  entering  constraints  in  the  vertical  direction.  As 
it  was  noted  above,  these  constraints  play  a  key  role  in  the  surface  generation 
and  therefore  must  be  defined  precisely. 

After  the  failure  surface  generation  limits  are  entered,  the  program 
prompts  for  the  soil  properties  of  the  each  soil  layer  (Figure  15).  The  user 
must  enter  unit  weight  of  the  soil,  strength  intercept,  and  strength  shear  angle. 
As  mentioned  above,  the  calculations  in  the  program  are  performed  using 
either  total  or  effective  stress  approach,  hence  the  appropriate  strength 
parameters  must  be  used  for  the  input.  The  program  does  not  require  usage 
of  any  particular  set  of  units;  however,  all  units  must  be  compatible. 

The  last  part  of  the  input  procedure  is  the  entering  of  the  ground  water 
data.  Figure  16  shows  the  program  prompt  for  the  selection  of  the  pore 
pressure  model.    The  user  will  need  enter  "1"  if  the  pore  pressure  ratio  is 
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Figure  13        Prompt  for  the  Failure  Surface  Generation  Data 
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Figure  14        Prompt  for  the  Initiation  Values  of  Surface  Generation 
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Figure  15        Prompt  for  the  Soil  Properties 
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Figure  16        Prompt  for  the  Pore  Pressure  Model 
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chosen  or  "2"  if  the  piezometric  surfaces  are  chosen'.  If  the  pore 
pressure  ratio  is  chosen,  the  prompt  for  the  value  of  this  ratio  will  appear,  as 
shown  on  Figure  16.  After  this  value  is  entered,  the  program  prompts  for  the 
pore  pressure  model  for  the  following  soil  layer.  If  the  piezometric  surfaces 
are  chosen,  the  new  window  will  appear  (Figure  17)  where  the  user  will  be 
asked  for  the  "Z  coordinate  of  the  piezometric  surface  for  each  node  of  the 
defined  coordinate  mesh.  The  entering  of  the  ground  water  data  completes 
creation  of  the  data  file. 

If  errors  in  the  problem  geometry  are  encountered,  the  user  can 
examine  and  edit  the  existing  data  file  using  the  main  menu  option  "Edit 
Existing  Data  File".  The  operations  used  to  edit  the  existing  data  file  are  the 
same  as  those  used  to  create  it.  The  only  difference  is  that  the  values  of 
parameters  will  appear  in  the  input  fields  instead  of  blanks  (or  zeros). 

When  the  user  finishes  creating  of  the  data  files,  the  calculations  using 
PC-STABL3D  can  be  performed.  In  order  to  start  PC-STABL3D  program, 
the  user  must  highlight  the  "Run  PC-STABL3D"  option  from  the  main  menu 
and  press  "Enter".  The  pre/postprocessor  unloads  itself  from  the  computer's 
memory  and  loads  PC-STABL3D  instead.  The  program  will  prompt  the  user 
for  the  name  of  the  input  data  file,  output  data  file,  the  number  of  surfaces  to 
be  generated  and,  after  the  calculations  are  completed,  for  the  name  of  the  file 
where  the  critical  surface  data  are  to  be  written.  After  the  program  stops, 
invoke  the  pre/postprocessor  at  the  DOS  prompt  to  examine  the  geometry  of 
the  most  critical  surface. 


To  input  a  number  in  the  one-character  input  field,  user  will  need  first  to  delete  existing 
character 
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Figure  17        Prompt  for  the  Coordinates  of  Piezometric  Surfaces 
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5.3    Examining  of  the  Surface  Geometry 

After  the  data  file  is  created,  the  next  step  in  the  input  data  preparation 
is  to  check  a  geometry  of  the  created  3D  surface.  The  pre/postprocessor 
provides  two  facilities  for  representation  of  the  problem  geometry:  cross 
section  plots,  and  contour  plots.  In  order  to  perform  plotting  functions  the 
input  file  must  be  read  in  first.  This  can  be  accomplished  by  the  choosing  of 
the  "Read  Data  File"  option  from  the  main  menu.  The  following  window  with 
a  pop-up  file  listing  (Figure  18)  will  prompt  the  user  for  the  name  of  the 
desired  data  file.  The  user  can  examine  the  directory  listing  in  the  pop-up 
window,  using  "Up"  and  "Down"  arrow  keys,  or  the  "Home"  key  to  go  to  the 
beginning  of  the  list  and  the  "End"  key  to  go  to  the  end  of  the  list.  After  the 
sliding  bar  is  over  the  desired  file,  choose  it  by  pressing  the  "Enter"  key.  The 
next  window  appears  (Figure  19)  with  the  prompt  for  the  cross-section  number 
to  be  plotted,  where  the  user  can  choose  to  plot  any  of  the  cross  section 
corresponding  to  the  defined  X  axis.  An  example  of  a  cross  sections  is  shown 
on  the  Figure  20.  Besides  with  the  ground  surface  and  soil  boundary  lines,  the 
program  plots  surface  generation  limits  (red  on  the  color  monitor),  which  can 
be  used  to  check  the  geometry  of  the  problem.  It  is  possible  to  dump  the 
image  on  the  screen  to  the  printer,  if  the  screen  dump  program  supports  EGA 
or  VGA  graphics  modes. 

A  similar  procedure  leads  to  the  plotting  of  contour  lines.  The  user 
must  first  read  in  the  data  file  and  choose  the  "Plot  3D  Geometry"  option  from 
the  main  menu.    The  program  will  then  ask  for  the  number  of  the  soil  layer 
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Figure  18        Pop-up  File  Listing 
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Figure  19        Prompt  for  the  Cross  Section  Number 
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Figure  20        Example  of  a  Cross  Section 


38 

to  be  plotted  and  the  number  of  the  contour  levels  to  use.  In  order  to  use  this 
option  a  color  monitor  is  required  because  the  contour  lines  differ  in  color, 
and  it  is  impossible  to  distinguish  among  them  on  the  black  and  white  or 
monochrome  screen. 

The  operations  to  preview  the  critical  surface  geometry  are  essentially 
the  same  as  these  to  preview  geometry  of  the  initial  profile.  To  preview  the 
cross  sections  of  the  critical  surface,  the  user  will  need  to  choose  option  "Plot 
3D  Surface  Contours"  from  the  main  menu.  From  the  pop-up  directory 
window  which  will  appear  on  the  screen,  select  the  file  containing  critical 
surface  data  (this  file  was  generated  by  PC-STABL3D).  The  program  will 
read  the  selected  file  and  prompt  for  the  number  of  contour  levels  to  be 
plotted.  Input  the  desired  number  of  contour  levels  and  press  "Enter".  The 
plot  will  appear  on  the  screen  (Figure  21).  To  return  to  the  main  menu  press 
any  key. 

The  pre/postprocessor  allows  plotting  cross  sections  of  the  most  critical 
failure  surface.  In  order  to  perform  this  operation  the  user  must  choose  the 
option  "Plot  Surface  Cross  Section  from  the  main  menu  and  press  "Enter". 
The  pop-up  window  with  the  directory  listing  will  appear,  and  the  user  will 
choose  the  desired  file  with  the  most  critical  surface  geometry  and  press 
"Enter".  The  program  then  will  ask  for  the  cross  section  number  to  be 
plotted.  After  the  required  number  is  entered,  the  plot  with  the  cross  section 
of  the  most  critical  failure  surface  will  appear  on  the  screen. 

To  exit  pre/postprocessor  user  must  highlight  the  "Exit  Program" 
option  from  the  main  menu. 
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Figure  21        Example  of  a  Contour  Plot 
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6.0  MISCELLANEOUS  INFORMATION 

6.1  Modification  and  Revisions  of  PC-STABL3D 

The  first  version  of  the  program  PC-STABL3D  and  pre/postprocessor 
was  developed  in  1986  (Thomaz,  1986).  Since  that  time  the  program  has  been 
used  mostly  for  educational  purposes. 

The  current  modification  of  this  program  was  made  by  G.  Moshkovich. 
The  following  modifications  were  implemented: 

1.  Data  files  can  be  not  just  created,  but  also,  edited  using  the 
enhanced  menus  of  the  pre/postprocessor. 

2.  During  the  creation  and  edition  of  the  data  files  the  user  can 
now  move  forward  and  backward  in  the  menus  while  the 
previous  version  allowed  forward  motion  only. 

3.  The  system  of  error  messages  was  included  in  the  preprocessor 
to  enhance  the  error  tracking  capabilities  of  the  program. 

4.  The  surface  generation  routines  for  the  main  program  were 
optimized  in  order  to  increase  their  speed  and  facilitate  further 
modifications. 
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6.2   Units 

All  units  used  for  any  one  problem  must  be  consistent.  The  printed 
output  is  limited  to  the  following  units  for  dimensionning. 

Length  (FT) 

Unit  Weight  (PCF) 

Stress  (PSF) 

Angles  (DEG) 

Metric  units  or  any  set  of  consistent  units  can  be  used.  It  must  be  kept 
in  mind,  however,  that  the  printed  output  will  bear  the  units  listed  above.  A 
consistent  set  of  metric  units  for  example  would  be: 


Length 

(M) 

Unit  Weight 

(KG/M^) 

Stress 

(KG/M^) 

Angles 

(DEG) 
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6.3   Problem  Size  Limitations 

The  limitations  of  the  program  are  defined  by  the  size  of 
the  arrays.   The  arrays  of  PC-STABL3D  were  assigned  the 
following  dimensions: 

Data  Maximum  Number^ 

Number  of  points  in  X  direction  15 

Number  of  points  in  Y  direction  15 

Number  of  soils  5 

7 . 0  Results 

The  current  version  of  the  PC-STABL3D  was  modified  in  order  to 
improve  interactive  interface  of  the  program  and  enhance 
mathematical  routines  for  generation  of  the  random  surfaces . 
The  modifications  made  include: 

1.  Data  files  can  be  now  not  just  created,  but  also,  edited 
using  the  enhanced  menus  of  the  pre/postprocessor. 

2.  During  the  creation  and  edition  of  the  data  files  the 
user  can  now  move  forward  and  backward  in  the  menus  while 
the  previous  version  allowed  forward  motion  only. 

3.  The  system  of  error  messages  was  included  in  the 
preprocessor  to  enhance  the  error  tracking  capabilities 
of  the  program. 


^  The  program  can  be  adjusted  to  handle  larger  problems  by 
changing  dimension  statements.  The  availability  of  the  computer's 
memory  core  will  take  precedence  with  regard  to  how  large  a 
problem  can  be  ultimately  handled. 
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4.  The  surface  generation  routines  for  the  main  program  were 
optimized  in  order  to  increase  their  speed  and  facilitate 
further  modifications . 

5.  The  program  performs  statistical  evaluation  of  the 
calculated  minimum  factor  of  safety  using  the  Weibull's 
distribution,  and  estimates  value  of  minimum  statistical 
factor  of  safety. 

8.0   Conclusions 

Based  on  the  results  of  the  research,  the  following  conclusions 

were  made  regarding  the  applicability  of  the  PC-STABL3D  to  the 

solution  of  general  three-dimensional  slope  stability  problems. 

1.  The  program  can  perform  three-dimensional  stability 
analysis  of  slopes  if  the  number  of  sections  along  or 
across  the  given  slope  does  not  exceed  10. 

2.  The  maximum  number  of  soil  layers  allowed  in  the  program 
is  5.   This  and  the  above  limitations  are  conditions  of 
the  availability  of  the  computer  memory  required  for  the 
program. 

3.  The  program  performs  calculations  using  the  total  weight 
and  total  boundary  force  approach.   However  if  the  pore 
pressure  is  measured  or  predicted,  either  a  total  or  an 
effective  stress  analysis  may  be  undertaken. 

4.  The  factor  of  safety  calculated  using  the  three- 
dimensional  analysis  is  generally  higher  than  the  one 
calculated  using  the  planar  stress  analysis. 
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APPENDIX  A  STATISTICAL  ANALYSIS 

The  program  provides  statistical  estimation  of  the  reliability  of 
critical  factor  of  safety.    The  estimation  is  needed  since  the  factors  of  safety 
generated  by  the  program  are  based  on  the  analysis  of  random  surfaces.    In 
order  to  perform  this  statistical  evaluation,  the  distribution  function  for  the 
distribution  of  resulting  factors  of  safety  has  been  defined. 

The  distribution  function  for  factors  of  safety  satisfies  the  following 
conditions: 

It  is  limited  to  the  left,  since  the  minimum  value  of  the  factor 
of  safety  is  of  interest. 

It  is  open  to  the  right  since  the  maximum  factor  of  safety  is 
indeterminate 

Function,  first  and  second  derivatives  of  the  function  must  be 
continuous. 

The  distribution  which  corresponds  to  the  above  conditions  is  termed 
extreme  value  distribution,  or  also  the  Weibull's  distribution.   The 
probability  density  function  and  cumulative  distribution  function  for  this 
distribution  are: 


h-' 


u-e 


-1 

[   f'"'f^ 

exp 

[   U-eJ 

. 

U-e 


FJz)  =  1  -exp 


z-e^* 


M-e 


/  J 
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The  moments  of  this  distribution  are: 
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where 


r(^)=Je-"M*-^rfM 


(A6) 


is  called  the  Gamma  function. 


The  first  and  second  moments  of  the  calculated  factors  of  safety  can  be 
estimated  and,  hence,  parameters  of  the  distribution  can  be  detlned.  The 
program  calculates  parameter  e,  which  is  the  left  boundary  of  the  distribution 
or  minimum  statistical  factor  of  safety.  Thus,  the  user  can  evaluate  how  close 
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the  actual  minimum  factor  of  safety  to  the  one  computed  from  the  WeibuU's 
distribution. 

The  WeibuU's  distribution  can  not  evaluate  a  range  of  factors  of  safety 
until  the  minimum  statistical  factor  of  safety  is  computed.  This  is  why  the 
statistical  factor  of  safety  can  have  any  value,  even  a  negative  one.  In  this 
case  the  program  will  warn  the  user  and  suggest  that  either:  the  limiting 
generation  boundaries  be  redefined  or  the  program  be  run  with  a  larger 
number  of  iterations. 

The  user  can  use  a  statistical  estimation  of  the  minimum  factor  of  safety 
to  evaluate  reliability  of  the  calculated  factor  of  safety.  If  the  statistically 
estimated  factor  of  safety  is  considerably  less  (10%-15%)  than  the  calculated 
minimum  factor  of  safety,  than  the  variability  of  the  generated  surfaces  is  very 
high.  The  best  way  to  decrease  variability  within  the  safety  factors  is  to 
narrow  the  limits  of  surface  generation.  The  user  may  attempt  to  change  both 
the  vertical  and  horizontal  limits  of  surface  generation  in  order  to  achieve 
plausible  value  for  the  statistical  estimation  of  minimum  factor  of  safety.  The 
procedure  for  the  search  of  the  most  critical  failure  surface  is,  of  course,  trial 
and  error  method,  and  therefore  the  user's  engineering  judgment  and 
experience  are  important  factors. 

The  statistically  estimated  minimum  factor  of  safety  can  also  help  the 
user  to  evaluate  the  reliability  of  the  computed  minimum  factor  of  safety  for 
the  cases  of  difficult  soil  conditions.  Such  complicating  soil  conditions  can  be, 
for  example,  weak  layers.  If  the  limits  of  surface  generation  are  assigned  such 
that  there  is  a  possibility  for  the  failure  surface  to  pass  either  through  the 
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stronger  soil  or  through  a  weak  layer,  the  scatter  of  the  resulting  factors  of 
safety  will  be  high.  Therefore  the  difference  between  the  statistically 
estimated  and  the  computed  minimum  factors  of  safety  may  be  considerable. 
In  order  to  decrease  the  above  difference  the  user  can  shift  the  vertical  limits 
of  surface  generation  up  or  down  to  include  as  much  of  the  weak  layer  as 
possible  in  the  generation  limits. 

The  user,  however,  should  exercise  caution  using  the  statistically 
determined  minimum  factor  of  safety,  since  its  value  can  be  misleading  if  the 
number  of  generated  surfaces  is  low,  and  the  generation  limits  are  wide. 
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APPENDIX  B  EXAMPLES 

Example  1 

Geometry  of  the  Example  1  is  shown  on  Figure  Bl.    The  following 
soil  parameters  were  used: 
Unit  weight  of  soil      100  pcf 
Cohesion  500  psf 

Friction  angle  0  deg 


^4 

a 
m  - 


A 


90'    ft 


290    ft 


A 


Sect  ion    A- A 


90    ft 


Figure  Bl        Illustration  for  Example  1 
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PCSTBUD  Version  2.0 
15       13 
1 
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OUTPUT  FILE 

*  PC-STABL3D  ♦ 

*  3-DIMENSIOANL  SLOPE  STABILITY  PROGRAM     ♦ 

*  FROM  PURDUE  UNIVERSITY  * 

*  VERSION  2.1  * 


Number  of  X  coordinates  :  15 
Number  of  Y  coordinates  :  13 
Number  of  soils  :     1 


X  COORDINATES  : 

coordinate  X(   1)  = 

40.00 

coordinate  X(   2)  = 

60.00 

coordinate  X(   3)  = 

80.00 

coordinate  X(   4)  = 

100.00 

coordinate  X(  5)  = 

120.00 

coordinate  X(  6)  = 

130.00 

coordinate  X(   7)  = 

160.00 

coordinate  X(   8)  = 

180.00 

coordinate  X(   9)  = 

200.00 

coordinate  X(  10)  = 

230.00 

coordinate  X(  11)  = 

240.00 

coordinate  X(  12)  = 

260.00 

coordinate  X(  13)  = 

280.00 

coordinate  X(  14)  = 

300.00 

coordinate  X(  15)  = 

320.00 

Y  COORDINATES 

coordinate  Y(   1)  = 

.00 

coordinate  Y(  2)  = 

20.00 

coordinate  Y(   3)  = 

40.00 

coordinate  Y(   4)  = 

60.00 

coordinate  Y(   5)  = 

80.00 

coordinate  Y(   6)  = 

100.00 

coordinate  Y(  7)  = 

120.00 

coordinate  Y(  8)  = 

130.00 

coordinate  Y(   9)  = 

140.00 

coordinate  Y(  10)  = 

160.00 

coordinate  Y(  1 1)  = 

180.00 

coordinate  Y(  12)  = 

200.00 

coordinate  Y(  13)  = 

230.00 

COORDINATES  Z  FOR  SOIL  tt    1 

Z(l,  1)=  100.00  Z(l,2)=  100.00  Z(l,3)=  100.00 

Z(l,4)=  100.00  Z(l,5)=  100.00  Z(l,6)=  100.00 

Z(l,7)=  100.00  Z(l,8)=  100.00  Z(l,9)=  100.00 

Z(l,10)=  100.00  Z(l,ll)=  100.00  Z(l,12)=  100.00 

Z(l,13)=  100.00  Z(2,  1)=  100.00  Z  (  2,  2)  =  100.00 

Z  (  2,  3)  =  100.00  Z  C  2,  4)  =  100.00  Z  (  2,  5)  =  100.00 

Z(2,  6)=  100.00  Z(2,  7)=  103.33  Z  (  2,  8)  =  106.67 

Z(2,  9)=  106.67  Z(2,10)=  106.67  Z(2,ll)=  106.67 


52 


z 

[2, 

z 

[3. 

z 

[3, 

z 

[3, 

z 

'3, 

z 

.4, 

z 

4, 

z 

I  4, 

z 

[4, 

z 

^4, 

z 

5, 

z 

5, 

z 

5, 

z 

5, 

z 

6, 

z 

6, 

z 

6, 

z 

6, 

z 

7, 

z 

7, 

z 

7. 

z 

7, 

z 

7, 

z 

8, 

z 

8, 

z 

8> 

z 

8, 

z 

9, 

z 

9, 

z 

9, 

z 

9, 

z 

10, 

z 

10, 

z 

10 

z 

10, 

z 

10, 

z 

11, 

z 

11, 

z 

11, 

z 

11, 

z 

12, 

z 

12, 

z 

12. 

z 

12, 

z 

13, 

z 

13, 

z 

13, 

z 

13, 

z 

13, 

z 
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12)  = 

106.67 

Z(2,13)  = 

106.67 

Z(3,  1)  = 

100.00 

2)  = 

100.00 

Z(3,  3)  = 

100.00 

Z  (  3,  4)  = 

100.00 

5)  = 

100.00 

Z  (  3,  6)  = 

103.33 

Z(3,  7)  = 

110.00 

8)  = 

113.33 

Z(3,9)  = 

113.33 

Z(3,10)  = 

113.33 

11)  = 

113.33 

Z(3,12)  = 

113.33 

Z(3,13)  = 

113.33 

1)  = 

100.00 

Z  (  4,  2)  = 

100.00 

Z  (  4,  3)  = 

100.00 

4)  = 

100.00 

Z  (  4,  5)  = 

103.33 

Z  (  4,  6)  = 

110.00 

7)  = 

116.67 

Z  (  4,  8)  = 

120.00 

Z  (  4.  9)  = 

120.00 

10)  = 

120.00 

Z(4.11)  = 

120.00 

Z(4.12)  = 

120.00 

13)  = 

120.00 

Z(5,  1)  = 

100.00 

Z  (  5,  2)  = 

100.00 

3)  = 

100.00 

Z  (  5,  4)  = 

103.33 

Z  (  5,  5)  = 

110.00 

6)  = 

116.67 

Z(5,  7)  = 

123.33 

Z  (  5.  8)  = 

126.67 

9)  = 

126.67 

Z(5,10)  = 

126.67 

Z(5.11)  = 

126.67 

12)  = 

126.67 

Z(5,13)  = 

126.67 

Z(6,  1)  = 

100.00 

2)  = 

100.00 

Z  (  6,  3)  = 

100.00 

Z  (  6,  4)  = 

106.67 

5)  = 

113.33 

Z  (  6,  6)  = 

120.00 

Z(6,7)  = 

126.67 

8)  = 

130.00 

Z  (  6,  9)  = 

130.00 

Z  (  6.10)  = 

130.00 

11)  = 

130.00 

Z(6,12)  = 

130.00 

Z(6,13)  = 

130.00 

1)  = 

100.00 

Z  (  7,  2)  = 

100.00 

Z  (  7,  3)  = 

100.00 

4)  = 

106.67 

Z  (  7,  5)  = 

113.33 

Z  (  7,  6)  = 

120.00 

7)  = 

126.67 

Z  (  7,  8)  = 

130.00 

Z  (  7,  9)  = 

130.00 

10)  = 

130.00 

Z(7,ll)  = 

130.00 

Z(7,12)  = 

130.00 

13)  = 

130.00 

Z(8,  1)  = 

100.00 

Z  (  8.  2)  = 

100.00 

3)  = 

100.00 

Z  (  8,  4)  = 

106.67 

Z  (  8,  5)  = 

113.33 

6)  = 

120.00 

Z(8,  7)  = 

126.67 

Z  (  8.  8)  = 

130.00 

9)  = 

130.00 

Z(8,10)  = 

130.00 

Z(8,ll)  = 

130.00 

12)  = 

130.00 

Z(8,13)  = 

130.00 

Z(9,  1)  = 

100.00 

2)  = 

100.00 

Z  (  9,  3)  = 

100.00 

Z  (  9,  4)  = 

106.67 

5)  = 

113.33 

Z  (  9,  6)  = 

120.00 

Z(9,  7)  = 

126.67 

8)  = 

130.00 

Z(9,9)  = 

130.00 

Z(9,10)  = 

130.00 

11)  = 

130.00 

Z(9,12)  = 

130.00 

Z(9,13)  = 

130.00 

1)  = 

100.00 

Z  (10,  2)  = 

100.00 

Z  (10,  3)  = 

100.00 

4)  = 

106.67 

Z  (10,  5)  = 

113.33 

Z  (10,  6)  = 

120.00 

7)  = 

126.67 

Z  (10,  8)  = 

130.00 

Z  (10,  9)  = 

130.00 

10)  = 

130.00 

Z  (10,11)  = 

130.00 

Z  (10,12)  = 

=  130.00 

13)  = 

130.00 

Z(ll,l)  = 

100.00 

Z(ll,2)  = 

100.00 

3)  = 

100.00 

Z(ll,4)  = 

103.33 

Z(ll,5)  = 

110.00 

6)  = 

116.67 

Z(ll,7)  = 

123.33 

Z(ll,8)  = 

126.67 

9)  = 

126.67 

Z  (11,10)  = 

126.67 

Z  (11,11)  = 

=  126.67 

12)  = 

126.67 

Z  (11,13)  = 

126.67 

Z(12,  1)  = 

=  100.00 

2)  = 

100.00 

Z(12,3)  = 

100.00 

Z  (12.  4)  = 

100.00 

5)  = 

103.33 

Z  (12,  6)  = 

110.00 

Z(12,  7)  = 

116.67 

8)  = 

120.00 

Z  (12,  9)  = 

120.00 

Z  (12,10)  = 

120.00 

11)  = 

120.00 

Z  (12,12)  = 

120.00 

Z  (12,13)  = 

=  120.00 

1)  = 

100.00 

Z(13,2)  = 

100.00 

Z  (13,  3)  = 

100.00 

4)  = 

100.00 

Z(13,5)  = 

100.00 

Z(13,6)  = 

103.33 

7)  = 

110.00 

Z(13,8)  = 

113.33 

Z(13,9)  = 

113.33 

10)  = 

113.33 

Z  (13,11)  = 

113.33 

Z  (13,12)  = 

=  113.33 

13)  = 

113.33 

Z(14,  1)  = 

100.00 

Z  (14,  2)  = 

100.00 

3)  = 

100.00 

Z  (14,  4)  = 

100.00 

Z  (14,  5)  = 

100.00 

6)  = 

100.00 

Z(14,  7)  = 

103.33 

Z(14,  8)  = 

106.67 

9)  = 

106.67 

Z  (14,10)  = 

106.67 

Z  (14,11)  = 

=  106.67 

12)  = 

106.67 

Z  (14,13)  = 

106.67 

Z(15,  1)  = 

=  100.00 

2)  = 

100.00 

Z(15,3)  = 

100.00 

Z  (15,  4)  = 

100.00 

5)  = 

100.00 

Z(15,6)  = 

100.00 

Z(15,7)  = 

100.00 

8)  = 

100.00 

Z(15,9)  = 

100.00 

Z  (15,10)  = 

100.00 

11)  = 

100.00 

Z  (15.12)  = 

100.00 

Z  (15,13)  = 

=  100.00 
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BOUNDARIES  FOR  GENERATION  IN  THE  Y  DIRECTION  : 

Main  Axis  of  Sliding  was  stablished  at  X  =    180.00 

Minimum  point  for  initiation  of  polygonals  at  Y  =     20.00 
Interval  for  initiation  of  polygonals  is  =     40.00 
Minimum  point  for  termination  of  polygonals  at  Y  =    110.00 
Interval  for  termination  of  polygonals  is  =     60.00 


BOUNDARIES  FOR  GENERATION  IN  THE  X  DIRECTION 

Coordinate  Y  =        .00 

Minimum  point  for  initiation  of  polygonals  at  X  =    120.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =    200.00 

Interval  for  termination  of  polygonals  is  =     40.00 

Coordinate  Y  =     20.00 

Minimum  point  for  initiation  of  polygonals  at  X  =    120.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =    200.00 

Interval  for  termination  of  polygonals  is  =     40.00 


Coordinate  Y  =     40.00 

Minimum  point  for  initiation  of  polygonals  at  X  =    120.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =    200.00 

Interval  for  termination  of  polygonals  is  =     40.00 


Coordinate  Y  =     60.00 

Minimum  point  for  initiation  of  polygonals  at  X  =    100.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =   220.00 

Interval  for  termination  of  polygonals  is  =     40.00 


Coordinate  Y  =     80.00 

Minimum  point  for  initiation  of  polygonals  at  X  =    100.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =    220.00 

Interval  for  termination  of  polygonals  is  =     40.00 


Coordinate  Y  =    100.00 

Minimum  point  for  initiation  of  polygonals  at  X  =    100.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =   220.00 

Interval  for  termination  of  polygonals  is  =     40.00 


Coordinate  Y  =    120.00 

Minimum  point  for  initiation  of  polygonals  at  X  =    100.00 


54 


Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =    220.00 

Interval  for  termination  of  polygonals  is  =     40.00 


Coordinate  Y  =    130.00 

Minimum  point  for  initiation  of  polygonals  at  X  =    100.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =   220.00 

Interval  for  termination  of  polygonals  is  =     40.00 


Coordinate  Y  =    140.00 

Minimum  point  for  initiation  of  polygonals  at  X  =    100.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =   220.00 

Interval  for  termination  of  polygonals  is  =     40.00 


Coordinate  Y  =    160.00 

Minimum  point  for  initiation  of  polygonals  at  X  =    120.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygoiials  at  X  =   200.00 

Interval  for  termination  of  polygonals  is  =     40.00 

Coordinate  Y  =    180.00 

Minimum  point  for  initiation  of  polj^onals  at  X  =    120.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =   200.00 

Interval  for  termination  of  polygonals  is  =     40.00 

Coordinate  Y  =   200.00 

Minimum  point  for  initiation  of  polygonals  at  X  =    120.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =    200.00 

Interval  for  termination  of  polygonals  is  =     40.00 


Coordinate  Y  =    230.00 

Minimum  point  for  initiation  of  polygonals  at  X  =    120.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =    200.00 

Interval  for  termination  of  polygonals  is  =     40.00 


BOUNDARIES  FOR  GENERATION  IN  THE  Z  DIRECTION 

Zmin(  1,  1)  =  79.00  Delta  Z(  1,  1)  =  20.00 

Zrain(  1,2)=  79.00  Delta  Z(  1,  2)  =  20.00 

Zmin(  1,3)=  79.00  Delta  Z(  1,  3)  =  20.00 

Zmin(  1,4)=  79.00  Delta  Z(  1,  4)  =  20.00 

Zmin(l,5)=  79.00  Delta  Z(  1,  5)  =  20.00 

Zmin(  1,6)=  79.00  Delta  Z(  1,  6)  =  20.00 

Zmin(  1,7)=  79.00  Delta  Z(  1,  7)  =  20.00 

Zmin(  I,  8)  =  79.00  Delta  Z(  1,  8)  =  20.00 

Zmin(  1,9)=  79.00  Delta  Z(  1,  9)  =  20.00 
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Zinin(  1,10)  = 
Zinin(  1,11)  = 
Zinin(  1,12)  = 
Zmin(  1,13)  = 
ZminC  2,  1)  = 
Zmin(  2,  2)  = 
Zmin(  2,  3)  = 
Zinin(  2,  4)  = 
Zmin(  2,  5)  = 
ZminC  2,  6)  = 
Zmin(  2,  7)  = 
Zmin(  2,  8)  = 
Zmin(  2,  9)  = 
Zmin(2,10)  = 
Zmin(2,ll)  = 
Zmin(2,12)  = 
ZminC  2,13)  = 
ZminC  3,  1)  = 
ZminC  3,  2)  = 


,3)  = 
,4)  = 
,5)  = 
,6)  = 
.7)  = 


ZminC  3, 
ZminC  3, 
ZminC  3, 
ZminC  3, 
ZminC  3, 
ZminC  3,8)  = 
ZminC  3,  9)  = 
ZminC  3,10)  = 
ZminC  3,11)  = 
ZminC  3,12)  = 
ZminC  3,13)  = 
ZminC  4,  1)  = 
ZminC  4,  2)  = 
ZminC  4,  3)  = 
ZminC  4,  4)  = 
ZminC  4,  5)  = 
ZminC  4,  6)  = 
ZminC  4,  7)  = 
ZminC  4,  8)  = 
ZminC  4,  9)  = 
ZminC  4,10)  = 
ZminC  4,11)  = 
ZminC  4,12)  = 
ZminC  4,13)  = 
ZminC  5,  1)  = 
ZminC  5,  2)  = 
ZminC  5,  3)  = 
ZminC  5,4)  = 
ZminC  5,5)  = 
ZminC  5,6)  = 
ZminC  5,  7)  = 
ZminC  5,8)  = 
ZminC  5,9)  = 
ZminC  5,10)  = 
ZminC  5,11)  = 
ZminC  5,12)  = 
ZminC  5,13)  = 
ZminC  6,  1)  = 
ZminC  6,2)  = 


79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 

79.00 


Delta  ZC  1,10)  = 
Delta  ZC  1,11)  = 
Delta  ZC  1,12)  = 
Delta  ZC  1,13)  = 
Delu  ZC  2,  1)  = 
Delta  ZC  2,  2)  = 
Delta  ZC  2,  3)  = 
Delta  ZC  2,  4)  = 
Delta  ZC  2,  5)  = 
Delta  ZC  2,  6)  = 
Delu  ZC  2,  7)  = 
Delu  ZC  2,  8)  = 
Delu  ZC  2,  9)  = 
Delu  ZC  2,10)  = 
Delu  ZC  2,11)  = 
Delu  ZC  2,12)  = 
Delu  ZC  2,13)  = 
Delu  ZC  3,  1)  = 
Delu  ZC  3,  2)  = 
DeluZC3,  3)  = 
Delu  ZC  3,  4)  = 
DeluZC3,  5)  = 
Delu  ZC3,  6)  = 
DeluZC3,  7)  = 
Delu  ZC  3,  8)  = 
Delu  ZC  3,  9)  = 
Delu  ZC  3,10)  ■■ 
Delu  ZC  3,11)  ■■ 
Delu  ZC  3,12)  ■■ 
Delu  ZC  3,13)  ■■ 
Delu  ZC  4,  1)  = 
Delu  ZC  4,  2)  = 
Delu  ZC  4,  3)  = 
Delu  ZC  4,  4)  = 
Delu  ZC  4,  5)  = 
Delu  ZC  4,  6)  = 
Delu  ZC  4,  7)  = 
Delu  ZC  4,  8)  = 
Delu  ZC  4,  9)  = 
Delu  ZC  4,10) 
Delu  ZC  4,11) 
Delu  ZC  4,12) 
Delu  ZC  4,13) 
Delu  ZC  5,  1)  = 
Delu  ZC5,  2)  = 
DeluZC5,  3)  = 
Delu  ZC  5,  4)  = 
Delu  ZC  5,  5)  = 
Delu  ZC  5,  6)  = 
Delu  ZC  5,  7)  = 
DeluZC5,  8)  = 
Delu  ZC  5,  9)  = 
Delu  ZC  5,10) 
Delu  ZC  5,11) 
Delu  ZC  5,12) 
Delu  ZC5,13) 
Delu  ZC  6,  1)  = 
Delu  ZC  6,  2)  = 


20.00 
20.00 
20.00 
20.00 
20.00 
20.00 
20.00 
20.00 
20.00 
20.00 
21.00 
24.00 
24.00 
24.00 
24.00 
24.00 
24.00 
20.00 
20.00 
20.00 
20.00 
20.00 
22.00 
25.00 
30.00 
30.00 
30.00 
30.00 
30.00 
30.00 
20.00 
20.00 
20.00 
20.00 
22.00 
25.00 
32.00 
35.00 
35.00 
35.00 
35.00 
35.00 
35.00 
20.00 
20.00 
20.00 
22.00 
25.00 
30.00 
35.00 
35.00 
35.00 
35.00 
35.00 
35.00 
35.00 
20.00 
20.00 
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Zmin(  6 
Zmin(  6 
Zmin(  6 
Zmin(  6 
Zmin(  6 
ZminC  6 
Zmin(  6 
Zmin(  6 
Zmin(  6 
Zmia(  6 
Zmin(  6 
Zmin(  7 
Zinin(  7 
Z[nin(  7 
Zmin(  7 
Zmjn(7 
Zmin(  7 
Zinin(  7 
Zinin(  7 
Zrain(  7 
Zmin(  7 
Zmin(  7 
Zmin(  7 
Zmin(  7 
Znun(  8 
Zmin(  8 
Zmin(  8 
Zmin(8 
Zmin(  8 
Zmin(  8 
Zinin(  8 
Zmin(  8 
Zmin(  8 
Zmin(  8 
Zmin(  8 
Zmin(  8 
Zmin(  8 
ZminC  9 
ZminC  9 
ZminC  9 
ZminC  9 
ZminC  9 
ZminC  9 
ZminC  9 
ZminC  9 
ZminC  9 
ZminC  9 
ZminC  9 
ZminC  9 
ZminC  9 
ZminClO,  1) 
ZminClO,  2) 
ZminClO,  3) 
ZminClO,  4) 
ZminClO,  5) 
ZminClO,  6) 
ZminClO,  7) 
ZminClO,  8) 


,3)  = 
,4)  = 
,5)  = 
,6)  = 
,7)  = 
.8)  = 
,9)  = 
,10)  = 
,11)  = 
,12)  = 
,13)  = 
,  1)  = 
,2)  = 
,3)  = 
,4)  = 
.5)  = 
,6)  = 

,7)  = 
,8)  = 
,9)  = 
,10)  = 
,11)  = 
,12)  = 
,13)  = 
,  1)  = 
,2)  = 
3)  = 
,4)  = 
,5)  = 
,6)  = 
,7)  = 
,8)  = 
,9)  = 
,10)  = 
,11)  = 
,12)  = 
.13)  = 
,  1)  = 
,2)  = 
,3)  = 
,4)  = 
,5)  = 
,6)  = 
,7)  = 
,8)  = 
,9)  = 
,10)  = 
,11)  = 
,12)  = 
,13)  = 


79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 


Delta  ZC  6,  3)  = 
Delta  ZC  6,  4)  = 
Delta  ZC  6,  5)  = 
Delta  ZC  6,  6)  = 
Delta  ZC  6,  7)  = 
Delta  ZC  6,  8)  = 
Delta  ZC  6,  9)  = 
Delta  ZC  6,10)  ■■ 
DeluZC6,ll)  ■■ 
Delta  ZC  6,12)  ■■ 
Delta  ZC  6,13)  ■■ 
DelU  ZC  7,  1)  = 
Delu  ZC  7,  2)  = 
Delta  ZC  7,  3)  = 
Delta  ZC  7,  4)  = 
Delta  ZC  7,  5)  = 
Delu  ZC  7,  6)  = 
Delta  ZC  7,  7)  = 
Delta  ZC  7,  8)  = 
Delu  ZC  7,  9)  = 
Delu  ZC  7,10)  : 
Delu  ZC  7,11)  ■■ 
Delu  ZC  7,12)  : 
Delu  ZC  7,13)  : 
Delu  ZC  8,  1)  = 
Delu  ZC  8,  2)  = 
Delu  ZC  8,  3)  = 
Delu  ZC  8,  4)  = 
Delu  ZC  8,  5)  = 
Delu  ZC  8,  6)  = 
Delu  ZC  8,  7)  = 
Delu  ZC  8,  8)  = 
Delu  ZC  8,  9)  = 
Delu  ZC  8,10) 
Delu  ZC  8,11) 
Delu  ZC  8,12) 
Delu  ZC  8,13) 
Delu  ZC  9,  1)  = 
Delu  ZC  9,  2)  = 
Delu  ZC  9,  3)  = 
Delu  ZC  9,  4)  = 
Delu  ZC  9,  5)  = 
Delu  ZC  9,  6)  = 
Delu  ZC  9,  7)  = 
Delta  ZC  9,  8)  = 
Delu  ZC  9,  9)  = 
Delu  ZC  9,10) 
Delu  ZC  9,11) 
Delu  ZC  9,12) 
Delu  ZC  9,13) 
Delu  ZCIO,  1) 
Delu  ZCIO,  2) 
Delu  ZCIO,  3) 
Delu  ZCIO,  4) 
Delu  ZCIO,  5) 
Delu  ZCIO,  6) 
Delu  ZCIO,  7) 
Delu  ZCIO,  8) 


20.00 
25.00 
30.00 
35.00 
40.00 
45.00 
45.00 
45.00 
45.00 
45.00 
45.00 
20.00 
20.00 
20.00 
25.00 
30.00 
35.00 
40.00 
45.00 
45.00 
45.00 
45.00 
45.00 
45.00 
20.00 
20.00 
20.00 
25.00 
30.00 
35.00 
40.00 
45.00 
45.00 
45.00 
45.00 
45.00 
45.00 
20.00 
20.00 
20.00 
25.00 
30.00 
35.00 
40.00 
45.00 
45.00 
45.00 
45.00 
45.00 
45.00 
20.00 
20.00 
20.00 
25.00 
30.00 
35.00 
40.00 
45.00 
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Zmin(10,  9)  = 

79.00 

Delta  Z(10,  9)  = 

45.00 

Zmin(10,10)  = 

79.00 

Delta  Z(10,10)  = 

45.00 

Zmin(10,ll)  = 

79.00 

DeluZ(10,ll)  = 

45.00 

Zmin(10,12)  = 

79.00 

Delta  Z(10, 12)  = 

45.00 

Zinin(10,13)  = 

79.00 

DeluZ(10,13)  = 

45.00 

Zmin(ll,  1)  = 

79.00 

Delta  Z(ll,  1)  = 

20.00 

Zmin(l  1,2)  = 

79.00 

Delta  Z(l  1,2)  = 

20.00 

Zmin(ll,3)  = 

79.00 

Delta  Z(l  1,3)  = 

20.00 

Zmin(n,4)  = 

79.00 

Delta  Z(l  1,4)  = 

22.00 

Zmin(ll,5)  = 

79.00 

Delta  Z(l  1,5)  = 

25.00 

Zmin(ll,6)  = 

79.00 

Delta  Z(l  1,6)  = 

30.00 

Zmin(ll,7)  = 

79.00 

Delta  Z(l  1,7)  = 

35.00 

Zmin(ll,8)  = 

79.00 

Delta  Z(l  1,8)  = 

35.00 

Zmin(ll,9)  = 

79.00 

Delta  Z(l  1,9)  = 

35.00 

Zmin(ll,10)  = 

79.00 

Delta  Z(l  1,10)  = 

35.00 

Zmin(ll,ll)  = 

79.00 

Delta  Z(l  1,11)  = 

35.00 

Zmin(ll,12)  = 

79.00 

Delta  Z(l  1,12)  = 

35.00 

Zmin(ll,13)  = 

79.00 

Delta  Z(l  1,13)  = 

35.00 

Zmin(12,  1)  = 

79.00 

Delta  Z(12,  1)  = 

20.00 

Zmin(12,  2)  = 

79.00 

Delta  Z(12,  2)  = 

20.00 

Zmin(12,  3)  = 

79.00 

Delta  Z(12,  3)  = 

20.00 

Zmin(12,  4)  = 

79.00 

Delta  Z{12,  4)  = 

20.00 

Zmin(12,  5)  = 

79.00 

Delta  Z(12,  5)  = 

22.00 

Ztnin(12,  6)  = 

79.00 

Delta  Z(12,  6)  = 

25.00 

Zmin(12,  7)  = 

79.00 

Delta  Z(12,  7)  = 

32.00 

Zmin(12,  8)  = 

79.00 

Delta  Z(12,  8)  = 

35.00 

Zinin(12,  9)  = 

79.00 

Delta  Z(12,  9)  = 

35.00 

Zmin(12,10)  = 

79.00 

Delta  Z(12, 10)  = 

35.00 

Zinin(12,ll)  = 

79.00 

Delta  Z(12, 11)  = 

35.00 

Zmin(12,12)  = 

79.00 

Delta  Z(12,12)  = 

35.00 

Zmin(12,13)  = 

79.00 

Delta  Z(12, 13)  = 

35.00 

Zmin(13,  1)  = 

79.00 

Delta  Z(13,  1)  = 

20.00 

Zinin(13,  2)  = 

79.00 

Delta  Z(13,  2)  = 

20.00 

Zmin(13,  3)  = 

79.00 

DdtaZ(13,3)  = 

20.00 

Zinin(13,  4)  = 

79.00 

Delta  Z(13,  4)  = 

20.00 

Zinin(13,  5)  = 

79.00 

DeltaZ(13,5)  = 

20.00 

Zmin(13,  6)  = 

79.00 

Delta  Z(13,  6)  = 

22.00 

Zmin(13,  7)  = 

79.00 

DeltaZ(13,7)  = 

25.00 

Zrain(13,  8)  = 

79.00 

Delta  Z(13,  8)  = 

30.00 

Zmin(13,  9)  = 

79.00 

Delta  Z(13,  9)  = 

30.00 

Zmin(13,10)  = 

79.00 

Delta  Z(13, 10)  = 

30.00 

Zmin(13,ll)  = 

79.00 

Delta  Z(13, 11)  = 

30.00 

Zmin(13,12)  = 

79.00 

Delta  Z(13, 12)  = 

30.00 

Zimn(13,13)  = 

79.00 

Delta  Z(13, 13)  = 

30.00 

Zrain(14,  1)  = 

79.00 

Delta  Z(14,  1)  = 

20.00 

Zmin(14,  2)  = 

79.00 

Delta  Z(14,  2)  = 

20.00 

Zmin(14,  3)  = 

79.00 

Delta  Z(14,  3)  = 

20.00 

Zmin(14,  4)  = 

79.00 

Delta  Z(14,  4)  = 

20.00 

Zmin(14,  5)  = 

79.00 

Delta  Z(14,  5)  = 

20.00 

Zniin(14,  6)  = 

79.00 

Delta  Z(14,  6)  = 

20.00 

Zmin(14,  7)  = 

79.00 

Delta  Z(14,  7)  = 

21.00 

Zmin(14,  8)  = 

79.00 

Delta  Z(14,  8)  = 

24.00 

Zmin(14,  9)  = 

79.00 

Delta  Z(14,  9)  = 

24.00 

Zmin(14,10)  = 

79.00 

Delta  Z(14, 10)  = 

=     24.00 

Zmin(14,ll)  = 

79.00 

Delta  Z(14, 11)  = 

:     24.00 

Zmin(14,12)  = 

79.00 

DeltaZ(14,12)  = 

=     24.00 

Zmin(14,13)  = 

:     79.00 

Delta  Z(14, 13)  = 

=     24.00 

Zmin(15,  1)  = 

79.00 

Delta  Z(15,  1)  = 

20.00 

f 
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Zmin(15,  2)  = 

79.00 

Delta  Z(15,  2)  = 

20.00 

Zrain(15,  3)  = 

79.00 

Delu  Z(15,  3)  = 

20.00 

Zmin(15,  4)  = 

79.00 

Delu  Z(15,  4)  = 

20.00 

Zmin(15,  5)  = 

79.00 

Delu  Z(15,  5)  = 

20.00 

Zmin(15,6)  = 

79.00 

Delta  Z(15,  6)  = 

20.00 

Zmin(15,  7)  = 

79.00 

Delta  Z(15,  7)  = 

20.00 

Zmin(15,  8)  = 

79.00 

Delu  Z(15,  8)  = 

20.00 

Zinin(15,  9)  = 

79.00 

Delu  Z(15,  9)  = 

20.00 

Zmin(I5,10)  = 

79.00 

Delta  Z(15,10)  = 

20.00 

Zmin(15,ll)  = 

79.00 

DeluZ(15,ll)  = 

20.00 

Zinin(15,12)  = 

79.00 

DeluZ(15,12)  = 

20.00 

Zmin(15,13)  = 

79.00 

Delu  Z(15,13)  = 

20.00 

SOIL  PROPERTIES  : 

Soil       Unit  Weight       Cohesion       Shear  Angle 

1  100.00  500.0  .0 

Ru  of  soil  #    1  =    .00 

TEN  MOST  CRITICAL  SURFACES  : 


SURFACE #    1 

Coordinate    X 

Coordinate    Y 

Coordinate    Z 

180.000 

41.947 

.000 

154.579 

60.000 

386.448 

160.000 

60.000 

90.326 

180.000 

60.000 

90.293 

200.000 

60.000 

90.326 

205.421 

60.000 

513.552 

137.294 

80.000 

343.236 

160.000 

80.000 

92.027 

180.000 

80.000 

91.997 

200.000 

80.000 

92.027 

222.706 

80.000 

556.764 

120.010 

100.000 

300.024 

130.000 

100.000 

101.952 

160.000 

100.000 

83.505 

180.000 

100.000 

82.124 

200.000 

100.000 

83.505 

230.000 

100.000 

101.952 

239.990 

100.000 

599.976 

112.534 

120.000 

281.335 

120.000 

120.000 

104.000 

130.000 

120.000 

96.747 

160.000 

120.000 

86.576 

180.000 

120.000 

86.295 

200.000 

120.000 

86.576 

230.000 

120.000 

96.747 

240.000 

120.000 

104.000 

247.466 

120.000 

618.665 
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114.857 

130.000 

287.141 

120.000 

130.000 

107.689 

130.000 

130.000 

105.583 

160.000 

130.000 

99.710 

180.000 

130.000 

97.431 

200.000 

130.000 

99.710 

230.000 

130.000 

105.583 

240.000 

130.000 

107.689 

245.143 

130.000 

612.859 

129.358 

140.000 

323.394 

130.000 

140.000 

117.225 

160.000 

140.000 

116.657 

180.000 

140.000 

116.475 

200.000 

140.000 

116.657 

230.000 

140.000 

117.225 

230.642 

140.000 

576.606 

140.000 

160.000 

350.000 

160.000 

160.000 

124.000 

180.000 

160.000 

124.000 

200.000 

160.000 

124.000 

220.000 

160.000 

550.000 

180.000 

161.869 

.000 

Factor  of  Safety  = 

1.662 

SURFACE*   2 

Coordinate     X 

Coordinate    Y 

Coordinate    Z 

180.000 

22.640 

.000 

137.565 

40.000 

343.912 

160.000 

40.000 

85.030 

180.000 

40.000 

83.057 

200.000 

40.000 

85.030 

222.435 

40.000 

556.088 

124.614 

60.000 

311.536 

130.000 

60.000 

89.673 

160.000 

60.000 

81.507 

180.000 

60.000 

79.000 

200.000 

60.000 

81.507 

230.000 

60.000 

89.673 

235.386 

60.000 

588.464 

111.664 

80.000 

279.159 

120.000 

80.000 

101.000 

130.000 

80.000 

104.000 

160.000 

80.000 

94.851 

180.000 

80.000 

91.949 

200.000 

80.000 

94.851 

230.000 

80.000 

104.000 

240.000 

80.000 

101.000 

248.336 

80.000 

620.841 

109.278 

100.000 

273.194 

120.000 

100.000 

104.000 

130.000 

100.000 

109.000 

160.000 

100.000 

109.000 

180.000 

100.000 

109.000 

200.000 

100.000 

109.000 
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230.000  100.000  109.000 

240.000  100.000  104.000 

250.722  100.000  626.806 

119.644  120.000  299.110 

120.000  120.000  109.000 

130.000  120.000  114.000 

160.000  120.000  114.000 

180.000  120.000  114.000 

200.000  120.000  114.000 

230.000  120.000  114.000 

240.000  120.000  109.000 

240.356  120.000  600.890 

127.635  130.000  319.087 

130.000  130.000  119.000 

160.000  130.000  119.000 

180.000  130.000  119.000 

200.000  130.000  119.000 

230.000  130.000  119.000 

232.365  130.000  580.913 

180.000  136.347         .000 

Factor  of  Safety  =  3 .263 


SURFACE*   3 

Coordinate     X 

Coordinate     Y 

Coordinate     Z 

180.000 

22.640 

.000 

137.565 

40.000 

343.912 

160.000 

40.000 

85.030 

180.000 

40.000 

83.057      ■ 

200.000 

40.000 

85.030 

222.435 

40.000 

556.088 

124.614 

60.000 

311.536 

130.000 

60.000 

89.673 

160.000 

60.000 

81.507 

180.000 

60.000 

79.000 

200.000 

60.000 

81.507 

230.000 

60.000 

89.673 

235.386 

60.000 

588.464 

111.664 

80.000 

279.159 

120.000 

80.000 

101.000 

130.000 

80.000 

104.000 

160.000 

80.000 

94.851 

180.000 

80.000 

91.949 

200.000 

80.000 

94.851 

230.000 

80.000 

104.000 

240.000 

80.000 

101.000 

248.336 

80.000 

620.841 

109.278 

100.000 

273.194 

120.000 

100.000 

104.000 

130.000 

100.000 

109.000 

160.000 

100.000 

109.000 

180.000 

100.000 

109.000 

200.000 

100.000 

109.000 

230.000 

100.000 

109.000 

240.000 

100.000 

104.000 
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250.722 
119.644 
120.000 
130.000 
160.000 
180.000 
200.000 
230.000 
240.000 
240.356 
127.635 
130.000 
160.000 
180.000 
200.000 
230.000 
232.365 
180.000 


100.000 
120.000 
120.000 
120.000 
120.000 
120.000 
120.000 
120.000 
120.000 
120.000 
130.000 
130.000 
130.000 
130.000 
130.000 
130.000 
130.000 
136.347 


626.806 
299.110 
109.000 
114.000 
114.000 
114.000 
114.000 
114.000 
109.000 
600.890 
319.087 
119.000 
119.000 
119.000 
119.000 
119.000 
580.913 
.000 


Factor  of  Safety  =    3.263 


SURFACE*    4 

Coordinate     X 

Coordinate     Y 

Coordinate     Z 

180.000 

22.640 

.000 

137.565 

40.000 

343.912 

160.000 

40.000 

85.030 

180.000 

40.000 

83.057 

200.000 

40.000 

85.030 

222.435 

40.000 

556.088 

124.614 

60.000 

311.536 

130.000 

60.000 

89.673 

160.000 

60.000 

81.507 

180.000 

60.000 

79.000 

200.000 

60.000 

81.507 

230.000 

60.000 

89.673 

235.386 

60.000 

588.464 

111.664 

80.000 

279.159 

120.000 

80.000 

101.000 

130.000 

80.000 

104.000 

160.000 

80.000 

94.851 

180.000 

80.000 

91.949 

200.000 

80.000 

94.851 

230.000 

80.000 

104.000 

240.000 

80.000 

101.000 

248.336 

80.000 

620.841 

109.278 

100.000 

273.194 

120.000 

100.000 

104.000 

130.000 

100.000 

109.000 

160.000 

100.000 

109.000 

180.000 

100.000 

109.000 

200.000 

100.000 

109.000 

230.000 

100.000 

109.000 

240.000 

100.000 

104.000 

250.722 

100.000 

626.806 

119.644 

120.000 

299.110 
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120.000 

120,000 

109,000 

130.000 

120,000 

114,000 

160.000 

120,000 

114.000 

180.000 

120,000 

114,000 

200.000 

120,000 

114,000 

230.000 

120,000 

114,000 

240.000 

120.000 

109,000 

240.356 

120,000 

600,890 

127.635 

130,000 

319,087 

130.000 

130,000 

119,000 

160.000 

130.000 

119,000 

180.000 

130,000 

119,000 

200.000 

130.000 

119,000 

230.000 

130.000 

119,000 

232.365 

130.000 

580.913 

180.000 

136.347 

.000 

Factor  of  Safety  = 

3.263 

SURFACE  #   5 

Coordinate    X 

Coordinate    Y 

Coordinate    Z 

180.000 

22.640 

,000 

137.565 

40,000 

343,912 

160.000 

40,000 

85.030 

180.000 

40,000 

83.057 

200,000 

40,000 

85.030 

222.435 

40,000 

556.088 

124.614 

60,000 

311.536 

130.000 

60.000 

89.673 

160,000 

60,000 

81.507 

180.000 

60,000 

79.000 

200.000 

60,000 

81.507 

230.000 

60,000 

89.673 

235.386 

60,000 

588.464 

111,664 

80,000 

279.159 

120,000 

80,000 

101.000 

130,000 

80,000 

104.000 

160,000 

80,000 

94.851 

180,000 

80,000 

91.949 

200,000 

80,000 

94.851 

230,000 

80,000 

104.000 

240,000 

80,000 

101.000 

248,336 

80,000 

620.841 

109,278 

100,000 

273.194 

120,000 

100,000 

104.000 

130,000 

100,000 

109.000 

160,000 

100,000 

109.000 

180,000 

100,000 

109,000 

200,000 

100,000 

109,000 

230,000 

100,000 

109,000 

240,000 

100,000 

104.000 

250,722 

100,000 

626.806 

119.644 

120,000 

299.110 

120,000 

120,000 

109.000 

130,000 

120,000 

114.000 
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160.000 

120.000 

114.000 

180.000 

120.000 

114.000 

200.000 

120.000 

114.000 

230.000 

120.000 

114.000 

240.000 

120.000 

109.000 

240.356 

120.000 

600.890 

127.635 

130.000 

319.087 

130.000 

130.000 

119.000 

160.000 

130.000 

119.000 

180.000 

130.000 

119.000 

200.000 

130.000 

119.000 

230.000 

130.000 

119.000 

232.365 

130.000 

580.913 

180.000 

136.347 

.000 

Factor  of  Safely  = 

3.263 

SURFACE*   6 

Coordinate     X 

Coordinate     Y 

Coordinate     Z 

180.000 

22.640 

.000 

137.565 

40.000 

343.912 

160.000 

40.000 

85.030 

180.000 

40.000 

83.057 

200.000 

40.000 

85.030 

222.435 

40.000 

556.088 

124.614 

60.000 

311.536 

130.000 

60.000 

89.673 

160.000 

60.000 

81.507 

180.000 

60.000 

79.000 

200.000 

60.000 

81.507 

230.000 

60.000 

89.673 

235.386 

60.000 

588.464 

111.664 

80.000 

279.159 

120.000 

80.000 

101.000 

130.000 

80.000 

104.000 

160.000 

80.000 

94.851 

180.000 

80.000 

91.949 

200.000 

80.000 

94.851 

230.000 

80.000 

104.000 

240.000 

80.000 

101.000 

248.336 

80.000 

620.841 

109.278 

100.000 

273.194 

120.000 

100.000 

104.000 

130.000 

100.000 

109.000 

160.000 

100.000 

109.000 

180.000 

100.000 

109.000 

200.000 

100.000 

109.000 

230.000 

100.000 

109.000 

240.000 

100.000 

104.000 

250.722 

100.000 

626.806 

119.644 

120.000 

299.110 

120.000 

120.000 

109.000 

130.000 

120.000 

114.000 

160.000 

120.000 

114.000 

180.000 

120.000 

114.000 
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200.000 

120.000 

114.000 

230.000 

120.000 

114.000 

240.000 

120.000 

109.000 

240.356 

120.000 

600.890 

127.635 

130.000 

319.087 

130.000 

130.000 

119.000 

160.000 

130.000 

119.000 

180.000 

130.000 

119.000 

200.000 

130.000 

119.000 

230.000 

130.000 

119.000 

232.365 

130.000 

580.913 

180.000 

136.347 

.000 

Factor  of  Safety  =    3.263 


SURFACED   7 

Coordinate     X 

Coordinate     Y 

Coordinate    Z 

180.000 

22.640 

.000 

137.565 

40.000 

343.912 

160.000 

40.000 

85.030 

180.000 

40.000 

83.057 

200.000 

40.000 

85.030 

222.435 

40.000 

556.088 

124.614 

60.000 

311.536 

130.000 

60.000 

89.673 

160.000 

60.000 

81.507 

180.000 

60.000 

79.000 

200.000 

60.000 

81.507 

230.000 

60.000 

89.673 

235.386 

60.000 

588.464 

111.664 

80.000 

279.159 

120.000 

80.000 

101.000 

130.000 

80.000 

104.000 

160.000 

80.000 

94.851 

180.000 

80.000 

91.949 

200.000 

80.000 

94.851 

230.000 

80.000 

104.000 

240.000 

80.000 

101.000 

248.336 

80.000 

620.841 

109.278 

100.000 

273.194 

120.000 

100.000 

104.000 

130.000 

100.000 

109.000 

160.000 

100.000 

109.000 

180.000 

100.000 

109.000 

200.000 

100.000 

109.000 

230.000 

100.000 

109.000 

240.000 

100.000 

104.000 

250.722 

100.000 

626.806 

119.644 

120.000 

299.110 

120.000 

120.000 

109.000 

130.000 

120.000 

114.000 

160.000 

120.000 

114.000 

180.000 

120.000 

114.000 

200.000 

120.000 

114.000 

230.000 

120.000 

114.000 
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240.000 

120.000 

109.000 

240.356 

120.000 

600.890 

127.635 

130.000 

319.087 

130.000 

130.000 

119.000 

160.000 

130.000 

119.000 

180.000 

130.000 

119.000 

200.000 

130.000 

119.000 

230.000 

130.000 

119.000 

232.365 

130.000 

580.913 

180.000 

136.347 

.000 

Factor  of  Safety  = 

3.263 

SURFACE*    8 

Coordinate    X 

Coordinate    Y 

Coordinate    Z 

180.000 

46.742 

.000 

153.769 

60.000 

384.422 

160.000 

60.000 

94.802 

180.000 

60.000 

91.850 

200.000 

60.000 

94.802 

206.231 

60.000 

515.578 

125.274 

80.000 

313.185 

130.000 

80.000 

90.641 

160.000 

80.000 

83.934 

180.000 

80.000 

83.876 

200.000 

80.000 

83.934 

230.000 

80.000 

90.641 

234.726 

80.000 

586.815 

117.769 

100.000 

294.422 

120.000 

100.000 

101.000 

130.000 

100.000 

101.471 

160.000 

100.000 

88.691 

180.000 

100.000 

87.211 

200.000 

100.000 

88.691 

230.000 

100.000 

101.471 

240.000 

100.000 

101.000 

242.231 

100.000 

605.578 

118.093 

120.000 

295.233 

120.000 

120.000 

104.000 

130.000 

120.000 

107.775 

160.000 

120.000 

103.387 

180.000 

120.000 

103.381 

200.000 

120.000 

103.387 

230.000 

120.000 

107.775 

240.000 

120.000 

104.000 

241.907 

120.000 

604.767 

119.407 

130.000 

298.518 

120.000 

130.000 

109.000 

130.000 

130.000 

114.000 

160.000 

130.000 

114.000 

180.000 

130.000 

111.598 

200.000 

130.000 

114.000 

230.000 

130.000 

114.000 

240.000 

130.000 

109.000 

240.593 

130.000 

601.482 
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129.127 

140.000 

322.818 

130.000 

140.000 

119.000 

160.000 

140.000 

119.000 

180.000 

140.000 

119.000 

200.000 

140.000 

119.000 

230.000 

140.000 

119.000 

230.873 

140.000 

577.182 

140.000 

160.000 

350.000 

160.000 

160.000 

124.000 

180.000 

160.000 

124.000 

200.000 

160.000 

124.000 

220.000 

160.000 

550.000 

180.000 

160.653 

.000 

Factor  of  Safety  =   4.117 


SURFACE*   9 

Coordinate     X 

Coordinate    Y 

Coordinate     Z 

180.000 

46.742 

.000 

153.769 

60.000 

384.422 

160.000 

60.000 

94.802 

180.000 

60.000 

91.850 

200.000 

60.000 

94.802 

206.231 

60.000 

515.578 

125.274 

80.000 

313.185 

130.000 

80.000 

90.641 

160.000 

80.000 

83.934 

180.000 

80.000 

83.876 

200.000 

80.000 

83.934 

230.000 

80.000 

90.641 

234.726 

80.000 

586.815 

117.769 

100.000 

294.422 

120.000 

100.000 

101.000 

130.000 

100.000 

101.471 

160.000 

100.000 

88.691 

180.000 

100.000 

87.211 

200.000 

100.000 

88.691 

230.000 

100.000 

101.471 

240.000 

100.000 

101.000 

242.231 

100.000 

605.578 

118.093 

120.000 

295.233 

120.000 

120.000 

104.000 

130.000 

120.000 

107.775 

160.000 

120.000 

103.387 

180.000 

120.000 

103.381 

200.000 

120.000 

103.387 

230.000 

120.000 

107.775 

240.000 

120.000 

104.000 

241.907 

120.000 

604.767 

119.407 

130.000 

298.518 

120.000 

130.000 

109.000 

130.000 

130.000 

114.000 

160.000 

130.000 

114.000 

180.000 

130.000 

111.598 

200.000 

130.000 

114.000 
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230.000 

130.000 

114.000 

240.000 

130.000 

109.000 

240.593 

130.000 

601.482 

129.127 

140.000 

322.818 

130.000 

140.000 

119.000 

160.000 

140.000 

119.000 

180.000 

140.000 

119.000 

200.000 

140.000 

119.000 

230.000 

140.000 

119.000 

230.873 

140.000 

577.182 

140.000 

160.000 

350.000 

160.000 

160.000 

124.000 

180.000 

160.000 

124.000 

200.000 

160.000 

124.000 

220.000 

160.000 

550.000 

180.000 

160.653 

.000 

Factor  of  Safety  =    4.117 


SURFACE  tt  10 

Coordinate    X 

Coordinate    Y 

Coordinate     Z 

180.000 

46.742 

.000 

153.769 

60.000 

384.422 

160.000 

60.000 

94.802 

180.000 

60.000 

91.850 

200.000 

60.000 

94.802 

206.231 

60.000 

515.578 

125.274 

80.000 

313.185 

130.000 

80.000 

90.641 

160.000 

80.000 

83.934 

180.000 

80.000 

83.876 

200.000 

80.000 

83.934 

230.000 

80.000 

90.641 

234.726 

80.000 

586.815 

117.769 

100.000 

294.422 

120.000 

100.000 

101.000 

130.000 

100.000 

101.471 

160.000 

100.000 

88.691 

180.000 

100.000 

87.211 

200.000 

100.000 

88.691 

230.000 

100.000 

101.471 

240.000 

100.000 

101.000 

242.231 

100.000 

605.578 

118.093 

120.000 

295.233 

120.000 

120.000 

104.000 

130.000 

120.000 

107.775 

160.000 

120.000 

103.387 

180.000 

120.000 

103.381 

200.000 

120.000 

103.387 

230.000 

120.000 

107.775 

240.000 

120.000 

104.000 

241.907 

120.000 

604.767 

119,407 

130.000 

298.518 

120.000 

130.000 

109.000 

130.000 

130.000 

114.000 
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160.000 

130.000 

114.000 

180.000 

130.000 

111.598 

200.000 

130.000 

114,000 

230.000 

130.000 

114.000 

240.000 

130.000 

109.000 

240.593 

130.000 

601.482 

129.127 

140.000 

322.818 

130.000 

140.000 

119.000 

160.000 

140.000 

119.000 

180.000 

140.000 

119.000 

200.000 

140.000 

119.000 

230.000 

140.000 

119.000 

230.873 

140.000 

577.182 

140.000 

160.000 

350.000 

160.000 

160.000 

124.000 

180.000 

160.000 

124.000 

200.000 

160.000 

124.000 

220.000 

160.000 

550.000 

180.000 

160.653 

.000 

Factor  of  Safety  =    4.117 
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Example  2 


Geometry  of  the  Example  2  is  shown  on  Figure  B2.    The  following 
soil  parameters  were  used: 
Unit  weight  of  soil      100  pcf 
Cohesion  500  psf 

Friction  angle  0  deg 


500 


A 
ft 


O 


+ 


T 


B8o: ft 


A 


Sect \  on    A- A 


90    ft 


Figure  B2       Illustration  for  Example  2 
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•  PC-STAEL3D  • 

•  3-DIMENSIOANL  SLOPE  STABILITY  PROGRAM 

•  FROM  PURDUE  UNIVERSITY  • 

•  VERSION  2.1  * 


Number  of  X  coordinates  :  15 
Number  of  Y  coordinates  :  13 
Number  of  soils  :      1 


X  COORDINATES  : 

coordinate  X(    1)  = 

40.00 

coordinate  X(  2)  = 

60.00 

coordinate  X(  3)  = 

80.00 

coordii^ate  X(  4)  = 

100.00 

coordinate  X(   5)  = 

120.00 

coordinate  X(   6)  = 

130.00 

coordinate  X(   7)  = 

160.00 

coordinate  X(   8)  = 

180.00 

coordinate  X(   9)  = 

200.00 

coordinate  X(  10)  = 

230.00 

coordinate  X(  1 1)  = 

240.00 

coordinate  X(  12)  = 

260.00 

coordinate  X(  13)  = 

280.00 

coordinate  X(  14)  = 

300.00 

coordinate  X(  15)  = 

320.00 

Y  COORDINATES 

coordinate  Y(    1)  = 

.00 

coordinate  Y(  2)  = 

20.00 

coordinate  Y(  3)  = 

40.00 

coordinate  Y(  4)  = 

60.00 

coordinate  Y(   5)  = 

80.00 

coordinate  Y(   6)  = 

100.00 

coordinate  Y(   7)  = 

120.00 

coordinate  Y(    8)  = 

130.00 

coordinate  Y(   9)  = 

140.00 

coordinate  Y(  10)  = 

160.00 

coordinate  Y(  1 1)  = 

180.00 

coordinate  Y(  12)  = 

200.00 

coordinate  Y(  13)  = 

230.00 

COORDINATES  Z  FOR  SOIL  #    1 


Z(l,  1)  = 

100.00 

Z(l,2)  = 

100.00 

Z(l,3)  = 

100.00 

Z(l,4)  = 

106.67 

Z(  1,5)  = 

113.33 

Z(  1,6)  = 

120.00 

Z(l,7)  = 

126.67 

Z(l,8)  = 

130.00 

Z(  1,9)  = 

130.00 

Z(  1,10)  = 

130.00 

Z(l.ll)  = 

130.00 

Z(l,12)  = 

130.00 

Z(l,13)  = 

130.00 

Z(2,  1)  = 

100.00 

Z  (  2,  2)  = 

100.00 

Z  (  2,  3)  = 

100.00 

Z  (  2,  4)  = 

106.67 

Z  (  2,  5)  = 

113.33 

Z  (  2,  6)  = 

120.00 

Z  (  2,  7)  = 

126.67 

Z  (  2,  8)  = 

130.00 

Z  (  2,  9)  = 

130.00 

Z(2,10)  = 

130.00 

Z(2,1I)  = 

130.00 

Z(2,12)  = 

130.00 

Z(2,13)  = 

130.00 

Z(3,  1)  = 

100.00 

Z(3,2)  = 

100.00 

Z(3,  3)  = 

100.00 

Z(3,4)  = 

106.67 
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Z(3 

5)  = 

113.33 

Z  (  3,  6)  = 

120.00 

Z(3,7)  = 

126.67 

Z(3 

8)  = 

130.00 

Z  (  3,  9)  = 

130.00 

Z(3,10)  = 

130.00 

Z(3 

11)  = 

130.00 

Z(3,12)  = 

130.00 

Z(3,13)  = 

130.00 

Z(4 

1)  = 

100.00 

Z  (  4,  2)  = 

100.00 

Z  (  4,  3)  = 

100.00 

Z(4 

4)  = 

106.67 

Z  (  4,  5)  = 

113.33 

Z  (  4,  6)  = 

120.00 

Z(4 

7)  = 

126.67 

Z  (  4,  8)  = 

130.00 

Z  (  4,  9)  = 

130.00 

Z(4 

10)  = 

130.00 

Z(4,ll)  = 

130.00 

Z(4,12)  = 

130.00 

Z(4 

13)  = 

130.00 

Z(5,  1)  = 

100.00 

Z  (  5.  2)  = 

100.00 

Z(5 

3)  = 

100.00 

Z  (  5.  4)  = 

106.67 

Z  (  5,  5)  = 

113.33 

Z(5 

6)  = 

120.00 

Z(5,  7)  = 

126.67 

Z  (  5,  8)  = 

130.00 

Z(5 

9)  = 

130.00 

Z(5,10)  = 

130.00 

Z(5,ll)  = 

130.00 

Z(5 

12)  = 

130.00 

Z(5,13)  = 

130.00 

Z(6,  1)  = 

100.00 

Z(6 

2)  = 

100.00 

Z  (  6,  3)  = 

100.00 

Z  (  6,  4)  = 

106.67 

Z(6 

5)  = 

113.33 

Z  (  6,  6)  = 

120.00 

Z(6,  7)  = 

126.67 

Z(6 

8)  = 

130.00 

Z  (  6,  9)  = 

130.00 

Z(6,10)  = 

130.00 

Z(6 

11)  = 

130.00 

Z  (  6,12)  = 

130.00 

Z(6,13)  = 

130.00 

Z(7 

1)  = 

100.00 

Z  (  7,  2)  = 

100.00 

Z  (  7,  3)  = 

100.00 

Z(7 

4)  = 

106.67 

Z  (  7,  5)  = 

113.33 

Z  (  7,  6)  = 

120.00 

Z(7 

7)  = 

126.67 

Z  (  7,  8)  = 

130.00 

Z  (  7,  9)  = 

130.00 

Z(7 

10)  = 

130.00 

Z(7,ll)  = 

130.00 

Z  ( 7.12)  = 

130.00 

Z(7 

13)  = 

130.00 

Z(8,  1)  = 

100.00 

Z  (  8,  2)  = 

100.00 

Z(8 

3)  = 

100.00 

Z  (  8,  4)  = 

106.67 

Z  (  8,  5)  = 

113.33 

Z(8 

6)  = 

120.00 

Z  (  8,  7)  = 

126.67 

Z  (  8,  8)  = 

130.00 

Z(8 

9)  = 

130.00 

Z  (  8,10)  = 

130.00 

Z(8,ll)  = 

130.00 

Z(8 

12)  = 

130.00 

Z(8,13)  = 

130.00 

Z  (  9.  1)  = 

100.00 

Z(9 

2)  = 

100.00 

Z  (  9,  3)  = 

100.00 

Z  (  9,  4)  = 

106.67 

Z(9 

5)  = 

113.33 

Z  (  9,  6)  = 

120.00 

Z  (  9.  7)  = 

126.67 

Z(9 

8)  = 

130.00 

Z  (  9,  9)  = 

130.00 

Z(9,10)  = 

130.00 

Z(9 

11)  = 

130.00 

Z(9,12)  = 

130.00 

Z  (  9,13)  = 

130.00 

Z(10 

,  1)  = 

100.00 

Z  (10,  2)  = 

100.00 

Z  (10,  3)  = 

100.00 

Z(10 

,4)  = 

106.67 

Z  (10,  5)  = 

113.33 

Z  (10,  6)  = 

120.00 

Z(10 

,7)  = 

126.67 

Z  (10,  8)  = 

130.00 

Z  (10,  9)  = 

130.00 

Z(10 

,10)  = 

130.00 

Z  (10,11)  = 

130.00 

Z  (10,12)  = 

=  130.00 

Z(10 

,13)  = 

130.00 

z(n,  1)  = 

100.00 

Z(ll,2)  = 

100.00 

Z(ll 

3)  = 

100.00 

Z(ll,4)  = 

106.67 

Z(ll,5)  = 

113.33 

Z(ll 

6)  = 

120.00 

Z(ll,7)  = 

126.67 

Z(ll,  8)  = 

130.00 

Z(ll 

,9)  = 

130.00 

Z  (11,10)  = 

130.00 

Z  (11,11)  = 

130.00 

Z(ll 

12)  = 

130.00 

Z  (11,13)  = 

130.00 

Z  (12,  1)  = 

100.00 

Z(12 

2)  = 

100.00 

Z(12,  3)  = 

100.00 

Z  (12,  4)  = 

106.67 

Z(12 

5)  = 

113.33 

Z  (12,  6)  = 

120.00 

Z  (12,  7)  = 

126.67 

Z(12 

8)  = 

130.00 

Z  (12,  9)  = 

130.00 

Z  (12,10)  = 

130.00 

Z(12 

11)  = 

130.00 

Z  (12,12)  = 

130.00 

Z  (12,13)  = 

=  130.00 

Z(13 

1)  = 

100.00 

Z(13,2)  = 

100.00 

Z(13,3)  = 

100.00 

Z(13 

4)  = 

106.67 

Z(13,5)  = 

113.33 

Z  (13,  6)  = 

120.00 

Z(I3 

7)  = 

126.67 

Z(13,8)  = 

130.00 

Z  (13,  9)  = 

130.00 

Z(13 

10)  = 

130.00 

Z  (13,11)  = 

130.00 

Z  (13,12)  = 

=  130.00 

Z(13 

13)  = 

130.00 

Z  (14,  1)  = 

100.00 

Z  (14,  2)  = 

100.00 

Z(14 

3)  = 

100.00 

Z  (14,  4)  = 

106.67 

Z  (14,  5)  = 

113.33 

Z(14 

6)  = 

120.00 

Z(14,7)  = 

126.67 

Z  (14,  8)  = 

130.00 

Z(14 

9)  = 

130.00 

Z  (14,10)  = 

130.00 

Z  (14,11)  = 

130.00 

Z(14 

12)  = 

130.00 

Z  (14,13)  = 

130.00 

Z(15,  1)  = 

100.00 

Z(I5 

2)  = 

100.00 

Z(15,3)  = 

100.00 

Z  (15,  4)  = 

106.67 

Z(15 

5)  = 

113.33 

Z(15,6)  = 

120.00 

Z(15,  7)  = 

126.67 

Z(I5 

8)  = 

130.00 

Z(15,9)  = 

130.00 

Z  (15,10)  = 

130.00 

Z(15 

11)  = 

130.00 

Z  (15,12)  = 

130.00 

Z  (15,13)  = 

=  130.00 

BOUNDARIES  FOR  GENERATION  IN  THE  Y  DIRECTION  : 


'        ,  73 

Main  Axis  of  Sliding  was  stablished  at  X  =    180.00 

Minimum  point  for  initiation  of  polygonals  at  Y  =     20.00 
Interval  for  initiation  of  polygonals  is  =     40.00 
Minimum  point  for  termination  of  polygonals  at  Y  =    110.00 
Interval  for  termination  of  polygonals  is  =     60.00 

BOUNDARIES  FOR  GENERATION  IN  THE  X  DIRECTION  : 


Coordinate  Y  =        .00 

Minimum  point  for  initiation  of  polygonals  at  X  =    120.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =    200.00 

Interval  for  termination  of  polygonals  is  =     40.00 


Coordinate  Y  =     20.00 

Minimum  point  for  initiation  of  polygonals  at  X  =    120.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =   200.00 

Interval  for  termination  of  polygonals  is  =     40.00 


Coordinate  Y  =     40.00 

Minimum  point  for  initiation  of  polygonals  at  X  =    120.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =    200.00 

Interval  for  termination  of  polygonals  is  =     40.00 


Coordinate  Y  =     60.00 

Minimum  point  for  initiation  of  polygonals  at  X  =    100.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =    220.00 

Interval  for  termination  of  polygonals  is  =     40.00 


Coordinate  Y  =     80.00 

Minimum  point  for  initiation  of  polygonals  at  X  =    100.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =    220.00 

Interval  for  termination  of  polygonals  is  =     40.00 


Coordinate  Y  =    100.00 

Minimum  point  for  initiation  of  polygonals  at  X  =    100.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =    220.00 

Interval  for  termination  of  polygonals  is  =     40.00 


Coordinate  Y  =    120.00 

Minimum  point  for  initiation  of  polygonals  at  X  =    100.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =    220.00 

Interval  for  termination  of  polygonals  is  =     40.00 
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Coordinate  Y  =    130.00 

Minimum  point  for  initiation  of  polygonals  at  X  =    100.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =   220.00 

Interval  for  termination  of  polygonals  is  =     40.00 


Coordinate  Y  =    140.00 

Minimum  point  for  initiation  of  polygonals  at  X  =    100.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =    220.00 

Interval  for  termination  of  polygonals  is  =     40.00 


Coordinate  Y  =    160.00 

Minimum  point  for  initiation  of  polygonals  at  X  =    120.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =   200.00 

Interval  for  termination  of  polygonals  is  =     40.00 


Coordinate  Y  =    180.00 

Minimum  point  for  initiation  of  polygonals  at  X  =    120.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =    200.00 

Interval  for  termination  of  polygonals  is  =     40.00 


Coordinate  Y  =    200.00 

Minimum  point  for  initiation  of  polygonals  at  X  =    120.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =    200.00 

Interval  for  termination  of  polygonals  is  =     40.00 


Coordinate  Y  =    230.00 

Minimum  point  for  initiation  of  polygonals  at  X  =    120.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =    200.00 

Interval  for  termination  of  polygonals  is  =     40.00 


BOUNDARIES  FOR  GENERATION  IN  THE  Z  DIRECTION 


Zmin(  1,  1)  = 

79.00 

DeluZ(  1,  1)  = 

20.00 

ZminC  1,2)  = 

79.00 

Delta  Z(  1,  2)  = 

20.00 

Zmin(  1,3)  = 

79.00 

Delu  Z(  1 ,  3)  = 

20.00 

Zmin(  1,4)  = 

79.00 

DeluZ(  1,  4)  = 

25.00 

Zmin(  1,5)  = 

79.00 

DeluZ(  1,  5)  = 

30.00 

Zmin(  1,6)  = 

79.00 

Delta  Z(  1,  6)  = 

35.00 

Zmin(  1,7)  = 

79.00 

Delta  Z(  1,  7)  = 

40.00 

Zmin(  1,  8)  = 

79.00 

DeluZ(  1,  8)  = 

45.00 

Zmin(l,  9)  = 

79.00 

Delta  Z(  1,9)  = 

45.00 

Zmin(  1,10)  = 

79.00 

Delta  Z(  1,10)  = 

45.00 

Zmin(  1,11)  = 

79.00 

Delta  Z(  1,11)  = 

45.00 

Zmin(  1,12)  = 

79.00 

Delu  Z(  1,12)  = 

45.00 

Zmin(  1,13)  = 

79.00 

Delta  Z(  1,13)  = 

45.00 
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Zinin( 

2 

1) 

= 

79.00 

Delu  Z( 

2,  1)  = 

20.00 

Zmin( 

2 

2) 

= 

79.00 

Delu  Z( 

2,2)  = 

20.00 

Z[nin( 

2 

3) 

= 

79.00 

Delta  Z{ 

2,3)  = 

20.00 

Zmin( 

2 

4) 

= 

79.00 

Delta  Z{ 

2,4)  = 

25.00 

Zmin( 

2 

5) 

= 

79.00 

Delta  Z( 

2,5)  = 

30.00 

Zmin( 

2 

6) 

= 

79.00 

Delta  Z( 

2,6)  = 

35.00 

Zmin( 

2 

7) 

= 

79.00 

Delta  Z( 

2,7)  = 

40.00 

Zmin( 

2 

8) 

= 

79.00 

Delta  Z( 

2,  8)  = 

45.00 

Zmin( 

2 

9) 

= 

79.00 

Delta  Z( 

2,9)  = 

45.00 

Zmin( 

2 

10) 

= 

79.00 

Delta  Z 

(2,10)  = 

45.00 

Zmin( 

2 

H) 

= 

79.00 

Delta  Z 

(2,11)  = 

45.00 

Zmin( 

2 

12) 

= 

79.00 

Delta  Z 

(2,12)  = 

45.00 

Zinin( 

2 

13) 

= 

79.00 

Delta  Z 

(2,13)  = 

45.00 

ZminI 

3 

1) 

= 

79.00 

Delta  Z( 

3,  1)  = 

20.00 

Zmin( 

3 

2) 

= 

79.00 

Delta  Z( 

3,2)  = 

20.00 

Zmin( 

3 

3) 

= 

79.00 

Delta  Z( 

3,3)  = 

20.00 

Zmin( 

3 

4) 

= 

79.00 

Delta  Z( 

3,4)  = 

25.00 

Zmin( 

3 

5) 

= 

79.00 

Delta  Z( 

3,5)  = 

30.00 

Zminl 

3 

6) 

= 

79.00 

Delta  Z( 

3,6)  = 

35.00 

ZminI 

3 

7) 

= 

79.00 

Delta  Z( 

3,7)  = 

40.00 

ZminI 

3 

8) 

= 

79.00 

Delta  Z( 

3,8)  = 

45.00 

ZminI 

3 

9) 

= 

79.00 

Delta  Z( 

3,9)  = 

45.00 

Zmin( 

3 

10) 

= 

79.00 

Delta  Z 

(3,10)  = 

45.00 

Zmin( 

3 

11) 

= 

79.00 

Delta  Z 

(3,11)  = 

45.00 

ZminI 

3 

12) 

= 

79.00 

DeluZ 

(3,12)  = 

45.00 

ZminI 

3 

13) 

= 

79.00 

Delta  Z 

(3,13)  = 

45.00 

ZminI 

4 

1) 

= 

79.00 

Delta  Z( 

4,  1)  = 

20.00 

Zmin( 

4 

2) 

= 

79.00 

Delta  Z( 

4,2)  = 

20.00 

Zmin( 

4 

3) 

= 

79.00 

Delta  Z( 

4,3)  = 

20.00 

Zmin( 

4 

4) 

= 

79.00 

Delta  Z( 

4,  4)  = 

25.00 

Zmin( 

4 

5) 

= 

79.00 

Delta  Z( 

4,5)  = 

30.00 

Zmin( 

4 

6) 

= 

79.00 

Delta  Z( 

4,6)  = 

35.00 

Zmin( 

4 

7) 

= 

79.00 

Delta  Z( 

4,  7)  = 

40.00 

Zmin( 

4 

8) 

= 

79.00 

Delta  Z( 

4,8)  = 

45.00 

Zmin( 

4 

9) 

= 

79.00 

Delta  Z( 

4,  9)  = 

45.00 

Zmin( 

4 

10) 

= 

79.00 

Delta  Z 

(4,10)  = 

45.00 

Zmin( 

4 

11) 

= 

79.00 

Delta  Z 

(4,11)  = 

45.00 

Zmin( 

4 

12) 

= 

79.00 

Delta  Z 

(4,12)  = 

45.00 

Zmin( 

4 

13) 

= 

79.00 

Delta  Z 

(4,13)  = 

45.00 

Zmini 

5 

1) 

= 

79.00 

Delta  Z( 

5,  1)  = 

20.00 

ZminI 

5 

2) 

= 

79.00 

Delta  Z 

5,2)  = 

20.00 

Zmin( 

5 

3) 

= 

79.00 

Delta  Z( 

5,3)  = 

20.00 

Zmin( 

5 

4) 

= 

79.00 

Delta  Z( 

5,4)  = 

25.00 

Zmin( 

5 

5) 

= 

79.00 

Delta  Z( 

5,5)  = 

30.00 

Zmin( 

5 

6) 

= 

79.00 

Delta  Z 

5,6)  = 

35.00 

Zmin( 

5 

7) 

= 

79.00 

Delta  Z 

5,  7)  = 

40.00 

Zmini 

5 

8) 

= 

79.00 

Delta  Z 

5,8)  = 

45.00 

Zmini 

5 

9) 

= 

79.00 

Delta  Z 

5,9)  = 

45.00 

Zmini 

5 

10) 

= 

79.00 

Delta  Z 

(5,10)  = 

45.00 

Zmin( 

5 

11) 

= 

79.00 

Delta  Z 

(5,11)  = 

45.00 

Zmin( 

5 

12) 

= 

79.00 

Delta  Z 

(5,12)  = 

45.00 

Znun( 

5 

13) 

= 

79.00 

Delta  Z 

(5,13)  = 

45.00 

Zmin( 

6 

1) 

= 

79.00 

Delta  Z 

6,  1)  = 

20.00 

Zmin( 

6 

2) 

= 

79.00 

Delta  Z 

6,2)  = 

20.00 

Zmini 

6 

3) 

= 

79.00 

Delta  Z 

6,3)  = 

20.00 

Zmin( 

6 

4) 

= 

79.00 

Delta  Z 

6,4)  = 

25.00 

Zmini 

6 

5) 

= 

79.00 

Delta  Z 

6,5)  = 

30.00 

Zmini 

6 

6) 

= 

79.00 

Delta  Z 

6,  6)  = 

35.00 
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Zmini 
Zmini 
Zmini 
Zmini 
Zmini 
Zmini 
Zmini 
Zmini 
Zmini 
Zmini 
Zmini 
Zmini 
Zmini 
Zmini 
Zmini 
Zmini 
Zmini 
Zmini 
Zmini 
Zmini 
Zmini 
Zmini 
Zmini 
Zmini 
Zmini 
Zmini 
Zmini 
Zmini 
Zmini 
Zmini 
Zmini 
Zmini 
Zmini 
Zmini 
Zmini 
Zmini 
Zmini 
Zmini 
Zmini 
Zmini 
Zmini 
Zmini 
Zmini 
Zmini 
Zmini 
Zmini 
Zmini 
Zmini 
Zmini 
Zmini 
Zmini 
Zmin< 
Zmin< 
Zmini 
Zmin 
Zmin 
Zmini 
Zmini 


6,7)  = 
6,  8)  ' 

6,  9)  ■■ 
6,10) 
6,11) 
6,12) 
6,13) 

7,  1)  ■■ 

7.2)  : 

7.3)  = 

7.4)  = 

7.5)  = 

7.6)  : 

7.7)  = 
7,  8)  = 

7,  9)  = 
7,10) 
7,11) 
7,12) 
7,13) 

8,  1)  = 
8,  2)  = 

8.3)  : 

8.4)  ■■ 
8,5): 
8,6)  = 
8,7): 
8,  8)  ■■ 

8,  9)  : 
8,10) 
8,11) 
8,12) 
8,13) 

9,  1)  -■ 


9,  9)  = 

9.10)  = 

9.11)  = 

9.12)  = 

9.13)  = 

10,  1)  = 
10,  2)  = 
10,3)  = 
10,  4)  = 
10,  5)  = 
10,  6)  = 
10,7)  = 
10,  8)  = 
10,  9)  = 
10,10) 
10,11) 
10,12) 


79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79,00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 


Delta  Z(  6 
Delta  Z(  6 
Delta  Z(  6 
Delu  Z(  6 
Delto  Z(  6 
Delta  Z(  6 
Delta  Z(  6 
Delta  Z(  7 
Delta  Z(  7 
Delta  Z(  7 
Delta  Z(  7 
Delta  Z(  7 
Delta  Z(  7 
Delta  Z(  7 
Delu  Z(  7 
Delta  Z(  7 
Delta  Z(  7 
Delta  Z(  7 
Delta  Z(  7 
Delta  Z(  7 
Delta  Z(  8 
Delta  Z(  8 
Delu  Z(  8 
Delu  Z(  8 
Delu  Z(  8 
Delu  Z(  8 
Delu  Z(  8 
Delu  Z(  8 
Delu  Z(  8 
Delu  Z(  8 
Delu  Z(  8 
Delu  Z(  8 
Delu  Z(  8 
Delu  Z(  9 
Delu  Z(  9 
Delu  Z(  9 
Delu  Z(  9 
Delu  Z(  9 
Delu  Z(  9 
Delu  Z(  9 
Delu  Z(  9 
Delu  Z(  9 
Delu  Z(  9 
Delu  Z(9,ll) 
Delu  Z(  9,12) 
Delu  Z(9,13) 
Delu  Z(10,  1) 
Delu  Z(10,  2) 
Delu  Z(10,  3) 
Delu  Z(10,  4) 
Delu  Z(10,  5) 
Delu  Z(10,  6) 
Delu  Z(10,  7) 
Delu  Z(IO,  8) 
Delu  Z(10,  9) 
DeluZ(10,10) 
DeluZ(10,ll) 
DeluZ(10,12) 


7)  = 

8)  = 

9)  = 

10)  = 

11)  = 

12)  = 

13)  = 

1)  = 

2)  = 

3)  = 

4)  = 

5)  = 

6)  = 

7)  = 

8)  = 

9)  = 

10)  = 

11)  = 

12)  = 

13)  = 

1)  = 

2)  = 

3)  = 

4)  = 

5)  = 

6)  = 

7)  = 

8)  = 

9)  = 

10)  = 

11)  = 

12)  = 

13)  = 

1)  = 

2)  = 

3)  = 

4)  = 

5)  = 

6)  = 

7)  = 

8)  = 

9)  = 

10)  = 


40.00 
45.00 
45.00 
45.00 
45.00 
45.00 
45.00 
20.00 
20.00 
20.00 
25.00 
30.00 
35.00 
40.00 
45.00 
45.00 
45.00 
45.00 
45.00 
45.00 
20.00 
20.00 
20.00 
25.00 
30.00 
35.00 
40.00 
45.00 
45.00 
45.00 
45.00 
45.00 
45.00 
20.00 
20.00 
20.00 
25.00 
30.00 
35.00 
40.00 
45.00 
45.00 
45.00 
45.00 
45.00 
45.00 
20.00 
20.00 
20.00 
25.00 
30.00 
35.00 
40.00 
45.00 
45.00 
45.00 
45.00 
45.00 
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Zmin( 

10,13)  = 

79.00 

Delta  Z(10,13)  = 

45.00 

ZminC 

11,1)  = 

79.00 

Delta  Z(ll,  1)  = 

20.00 

Zmin( 

11,2)  = 

79.00 

Delta  Z(l  1,2)  = 

20.00 

Zmin( 

11,3)  = 

79.00 

Delta  Z(ll,3)  = 

20.00 

Zmin( 

11,4)  = 

79.00 

Delta  Z(l  1,4)  = 

25.00 

Zinin( 

11,5)  = 

79.00 

Delta  Z(l  1,5)  = 

30.00 

Zmm( 

11,6)  = 

79.00 

Delta  Z(l  1,6)  = 

35.00 

Zniin( 

11,7)  = 

79.00 

Delta  Z(l  1,7)  = 

40.00 

Zmin( 

11,8)  = 

79.00 

DeltaZ(n,8)  = 

45.00 

Zmm( 

11,9)  = 

79.00 

Delta  Z(l  1,9)  = 

45.00 

Zmin( 

11,10)  = 

79.00 

Delta  Z(ll, 10)  = 

45.00 

Zniin( 

11,11)  = 

79.00 

Delta  Z(ll, 11)  = 

45.00 

Zmin( 

11,12)  = 

79.00 

Delta  Z(1 1,12)  = 

45.00 

Zmin( 

11,13)  = 

79.00 

Delta  Z(ll, 13)  = 

45.00 

Zinin( 

12,  1)  = 

79.00 

Delta  Z(12,  1)  = 

20.00 

ZminC 

12,  2)  = 

79.00 

Delta  Z(12,  2)  = 

20.00 

ZminC 

12,  3)  = 

79.00 

Delta  Z(12,  3)  = 

20.00 

Zmin( 

12,  4)  = 

79.00 

Delta  Z(12,  4)  = 

25.00 

Zmin( 

12,  5)  = 

79.00 

Delta  Z(12,  5)  = 

30.00 

Zmin( 

12,  6)  = 

79.00 

Delta  Z(12,  6)  = 

35.00 

Zmin( 

12,7)  = 

79.00 

Delta  Z(12,  7)  = 

40.00 

Zmin( 

12,  8)  = 

79.00 

Delta  Z(12,  8)  = 

45.00 

Zmin( 

12,  9)  = 

79.00 

Delta  Z(12,  9)  = 

45.00 

Zinin( 

12,10)  = 

79.00 

Delta  Z(12, 10)  = 

45.00 

Zmin( 

12,11)  = 

79.00 

Delta  Z(12, 11)  = 

45.00 

Zmin( 

12,12)  = 

79.00 

Delta  Z(12, 12)  = 

45.00 

Zmin( 

12,13)  = 

79.00 

Delta  Z(12, 13)  = 

45.00 

Zmin( 

13,  1)  = 

79.00 

Delta  Z(13,  1)  = 

20.00 

Zmin( 

13,  2)  = 

79.00 

Delta  Z(13,  2)  = 

20.00 

Zmin( 

13,3)  = 

79.00 

DeltaZ(13,3)  = 

20.00 

Zmin( 

13,  4)  = 

79.00 

Delta  Z(13,  4)  = 

25.00 

Zmin( 

13,5)  = 

79.00 

DeltaZ(13,5)  = 

30.00 

Zmin( 

13,6)  = 

79.00 

Delta  Z{13,  6)  = 

35.00 

Zmin( 

13,7)  = 

79.00 

DeltaZ(13,7)  = 

40.00 

Zmin( 

13,  8)  = 

79.00 

Delta  Z(13,8)  = 

45.00 

Zmin( 

13,9)  = 

79.00 

DeltaZ{I3,9)  = 

45.00 

Zmin( 

13,10)  = 

79.00 

Delta  Z(13, 10)  = 

45.00 

Zmin( 

13,11)  = 

79.00 

Delta  Z(13, 11)  = 

45.00 

Zmin( 

13,12)  = 

79.00 

Delta  Z(13, 12)  = 

45.00 

Zmin( 

13,13)  = 

79.00 

Delta  Z(13, 13)  = 

45.00 

Zmin( 

14,  1)  = 

79.00 

Delta  Z(14,  1)  = 

20.00 

Zinin( 

14,  2)  = 

79.00 

Delta  Z(14,  2)  = 

20.00 

Zrain( 

14,  3)  = 

79.00 

Delta  Z(14,  3)  = 

20.00 

Zmin( 

14,  4)  = 

79.00 

Delta  Z(14,  4)  = 

25.00 

Zmin( 

14,  5)  = 

79.00 

Delta  Z(14,  5)  = 

30.00 

Zmin( 

14,  6)  = 

79.00 

Delta  Z(14,  6)  = 

35.00 

Zmin( 

14,7)  = 

79.00 

Delta  Z(14,  7)  = 

40.00 

Zmin( 

14,  8)  = 

79.00 

Delta  Z(14,  8)  = 

45.00 

Zinin( 

14,  9)  = 

79.00 

Delta  Z(14,  9)  = 

45.00 

Zmin( 

14,10)  = 

79.00 

Delta  Z(14,10)  = 

45.00 

Zmin( 

14,11)  = 

79.00 

Delta  Z(14, 11)  = 

45.00 

Z[nin( 

14,12)  = 

79.00 

Delta  Z(14, 12)  = 

45.00 

Zmin( 

14,13)  = 

79.00 

Delta  Z(14,13)  = 

45.00 

Zmin( 

15,  1)  = 

79.00 

Delta  Z(15,  1)  = 

20.00 

Zmin( 

15,  2)  = 

79.00 

Delta  Z(15,  2)  = 

20.00 

Ztnin( 

15,3)  = 

79.00 

Delta  Z(15,  3)  = 

20.00 

Zmin( 

15,  4)  = 

79.00 

Delta  Z(15,  4)  = 

25.00 

ZminC 

15,5)  = 

79.00 

Delta  Z(15,  5)  = 

30.00 
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Zmin(15,  6)  = 

79.00 

Delta  Z(15,  6)  = 

35.00 

Zmin(15,  7)  = 

79.00 

Delta  Z(15,  7)  = 

40.00 

Zmin(15,  8)  = 

79.00 

Delta  Z(15,  8)  = 

45.00 

Zinin(15,  9)  = 

79.00 

Delta  Z(15,  9)  = 

45.00 

Zmin(15,10)  = 

79.00 

Delta  Z(15, 10)  = 

45.00 

Zmin(15,ll)  = 

79.00 

Delta  Z(15, 11)  = 

45.00 

Zmin(15,12)  = 

79.00 

Delta  Z(15, 12)  = 

45.00 

Zrain(15,13)  = 

79.00 

Delta  Z(15, 13)  = 

45.00 

SOIL  PROPERTIES  : 

Soil       Unit  Weight       Cohesion       Shear  Angle 

1  100.00  500.0  .0 

Ru  of  soil  #    I  =    .00 

TEN  MOST  CRITICAL  SURFACES  : 


SURFACE*    1 

Coordinate    X 

Coordinate    Y 

Coordinate     Z 

180.000 

40.307 

.000 

148.097 

60.000 

370.244 

160.000 

60.000 

84.276 

180.000 

60.000 

82.207 

200.000 

60.000 

84.276 

211.903 

60.000 

529.756 

121.131 

80.000 

302.828 

130.000 

80.000 

84.292 

160.000 

80.000 

80.698 

180.000 

80.000 

79.154 

200.000 

80.000 

80.698 

230.000 

80.000 

84.292 

238.869 

80.000 

597.172 

113.743 

100.000 

303.324 

120.000 

100.000 

104.000 

130.000 

100.000 

104.000 

160.000 

100.000 

93.758 

180.000 

100.000 

87.428 

200.000 

100.000 

93.758 

230.000 

100.000 

104.000 

240.000 

100.000 

104.000 

246.257 

100.000 

656.706 

117.008 

120.000 

331.512 

120.000 

120.000 

109.000 

130.000 

120.000 

109.000 

160.000 

120.000 

109.000 

180.000 

120.000 

103.140 

200.000 

120.000 

109.000 

230.000 

120.000 

109.000 

240.000 

120.000 

109.000 

242.992 

120.000 

688.458 

79 


119.850 

130.000 

359.551 

120.000 

130.000 

114.000 

130.000 

130.000 

114.000 

160.000 

130.000 

114.000 

180.000 

130.000 

114.000 

200.000 

130.000 

114.000 

230.000 

130.000 

114.000 

240.000 

130.000 

114.000 

240.150 

130.000 

720.449 

132.629 

140.000 

420.004 

160.000 

140.000 

119.000 

180.000 

140.000 

119.000 

200.000 

140.000 

119.000 

227.371 

140.000 

720.026 

180.000 

152.146 

.000 

Factor  of  Safety  =    4.096 


SURFACE*    2 

Coordinate    X 

Coordinate     Y 

Coordinate     Z 

180.000 

40.307 

.000 

148.097 

60.000 

370.244 

160.000 

60.000 

84.276 

180.000 

60.000 

82.207 

200.000 

60.000 

84.276 

211.903 

60.000 

529.756 

121.131 

80.000 

302.828 

130.000 

80.000 

84.292 

160.000 

80.000 

80.698 

180.000 

80.000 

79.154 

200.000 

80.000 

80.698 

230.000 

80.000 

84.292 

238.869 

80.000 

597.172 

113.743 

100.000 

303.324 

120.000 

100.000 

104.000 

130.000 

100.000 

104.000 

160.000 

100.000 

93.758 

180.000 

100.000 

87.428 

200.000 

100.000 

93.758 

230.000 

100.000 

104.000 

240.000 

100.000 

104.000 

246.257 

100.000 

656.706 

117.008 

120.000 

331.512 

120.000 

120.000 

109.000 

130.000 

120.000 

109.000 

160.000 

120.000 

109.000 

180.000 

120.000 

103.140 

200.000 

120.000 

109.000 

230.000 

120.000 

109.000 

240.000 

120.000 

109.000 

242.992 

120.000 

688.458 

119.850 

130.000 

359.551 

120.000 

130.000 

114.000 

130.000 

130.000 

114.000 

160.000 

130.000 

114.000 

80 


180.000 

130.000 

114.000 

200.000 

130.000 

114.000 

230.000 

130.000 

114.000 

240.000 

130.000 

114.000 

240.150 

130.000 

720.449 

132.629 

140.000 

420.004 

160.000 

140.000 

119.000 

180.000 

140.000 

119.000 

200.000 

140.000 

119.000 

227.371 

140.000 

720.026 

180.000 

152.146 

.000 

Factor  of  Safety  =    4.096 


SURFACE*   3 

Coordinate    X 

Coordinate     Y 

Coordinate    Z 

180.000 

46.742 

.000 

153.769 

60.000 

384.422 

160.000 

60.000 

94.802 

180.000 

60.000 

91.850 

200.000 

60.000 

94.802 

206.231 

60.000 

515.578 

125.274 

80.000 

313.185 

130.000 

80.000 

90.641 

160.000 

80.000 

83.934 

180.000 

80.000 

83.876 

200.000 

80.000 

83.934 

230.000 

80.000 

90.641 

234.726 

80.000 

586.815 

117.769 

100.000 

314.059 

120.000 

lOO.OOO 

104.000 

130.000 

100.000 

101.471 

160.000 

100.000 

88.691 

180.000 

100.000 

87.211 

200.000 

100.000 

88.691 

230.000 

100.000 

101.471 

240.000 

100.000 

104.000 

242.231 

100.000 

645.971 

118.093 

120.000 

334.587 

120.000 

120.000 

109.000 

130.000 

120.000 

107.775 

160.000 

120.000 

103.387 

180.000 

120.000 

103.381 

200.000 

120.000 

103.387 

230.000 

120.000 

107.775 

240.000 

120.000 

109.000 

241.907 

120.000 

685.383 

119.407 

130.000 

358.221 

120.000 

130.000 

114.000 

130.000 

130.000 

114.000 

160.000 

130.000 

114.000 

180.000 

130.000 

111.598 

200.000 

130.000 

114.000 

230.000 

130.000 

114.000 

240.000 

130.000 

114.000 

81 


240.593 

130.000 

721.779 

129.127 

140.000 

408.913 

130.000 

140.000 

119.000 

160.000 

140.000 

119.000 

180.000 

140.000 

119.000 

200.000 

140.000 

119.000 

230.000 

140.000 

119.000 

230.873 

140.000 

731.117 

140.000 

160.000 

455.000 

160.000 

160.000 

124.000 

180.000 

160.000 

124.000 

200.000 

160.000 

124.000 

220.000 

160.000 

715.000 

180.000 

160.653 

.000 

Factor  of  Safety  =   4.308 


SURFACE*   4 

Coordinate    X 

Coordinate    Y 

Coordinate     Z 

180.000 

46.742 

.000 

153.769 

60.000 

384.422 

160.000 

60.000 

94.802 

180.000 

60.000 

91.850 

200.000 

60.000 

94.802 

206.231 

60.000 

515.578 

125.274 

80.000 

313.185 

130.000 

80.000 

90.641 

160.000 

80.000 

83.934 

180.000 

80.000 

83.876 

200.000 

80.000 

83.934 

230.000 

80.000 

90.641 

234.726 

80.000 

586.815 

117.769 

100.000 

314.059 

120.000 

100.000 

104.000 

130.000 

100.000 

101.471 

160.000 

100.000 

88.691 

180.000 

100.000 

87.211 

200.000 

100.000 

88.691 

230.000 

100.000 

101.471 

240.000 

100.000 

104.000 

242.231 

100.000 

645.971 

118.093 

120.000 

334.587 

120.000 

120.000 

109.000 

130.000 

120.000 

107.775 

160.000 

120.000 

103.387 

180.000 

120.000 

103.381 

200.000 

120.000 

103.387 

230.000 

120.000 

107.775 

240.000 

120.000 

109.000 

241.907 

120.000 

685.383 

119.407 

130.000 

358.221 

120.000 

130.000 

114.000 

130.000 

130.000 

114.000 

160.000 

130.000 

114.000 

180.000 

130.000 

111.598 

82 


200.000 

130.000 

114.000 

230.000 

130.000 

114.000 

240.000 

130.000 

114.000 

240.593 

130.000 

721.779 

129.127 

140.000 

408.913 

130.000 

140.000 

119.000 

160.000 

140.000 

119.000 

180.000 

140.000 

119.000 

200.000 

140.000 

119.000 

230.000 

140.000 

119.000 

230.873 

140.000 

731.117 

140.000 

160.000 

455.000 

160.000 

160.000 

124.000 

180.000 

160.000 

124.000 

200.000 

160.000 

124.000 

220.000 

160.000 

715.000 

180.000 

160.653 

.000 

Factor  of  Safety  =   4.308 


JRFACE#   5 

aordinate    X 

Coordinate     Y 

Coordinate    Z 

180.000 

46.742 

.000 

153.769 

60.000 

384.422 

160.000 

60.000 

94.802 

180.000 

60.000 

91.850 

200.000 

60.000 

94.802 

206.231 

60.000 

515.578 

125.274 

80.000 

313.185 

130.000 

80.000 

90.641 

160.000 

80.000 

83.934 

180.000 

80.000 

83.876 

200.000 

80.000 

83.934 

230.000 

80.000 

90.641 

234.726 

80.000 

586.815 

117.769 

100.000 

314.059 

120.000 

100.000 

104.000 

130.000 

100.000 

101.471 

160.000 

100.000 

88.691 

180.000 

100.000 

87.211 

200.000 

100.000 

88.691 

230.000 

100.000 

101.471 

240.000 

100.000 

104.000 

242.231 

100.000 

645.971 

118.093 

120.000 

334.587 

120.000 

120.000 

109.000 

130.000 

120.000 

107.775 

160.000 

120.000 

103.387 

180.000 

120.000 

103.381 

200.000 

120.000 

103.387 

230.000 

120.000 

107.775 

240.000 

120.000 

109.000 

241.907 

120.000 

685.383 

119.407 

130.000 

358.221 

120.000 

130.000 

114.000 

83 


130.000 

130.000 

114.000 

160.000 

130.000 

114.000 

180.000 

130.000 

111.598 

200.000 

130.000 

114.000 

230.000 

130.000 

114.000 

240.000 

130.000 

114.000 

240.593 

130.000 

721.779 

129.127 

140.000 

408.913 

130.000 

140.000 

119.000 

160.000 

140.000 

119.000 

180.000 

140.000 

119.000 

200.000 

140.000 

119.000 

230.000 

140.000 

119.000 

230.873 

140.000 

731.117 

140.000 

160.000 

455.000 

160.000 

160.000 

124.000 

180.000 

160.000 

124.000 

200.000 

160.000 

124.000 

220.000 

160.000 

715.000 

180.000 

160.653 

.000 

Factor  of  Safely  =    4.308 


SURFACE*   6 

Coordinale     X 

Coordinate     Y 

Coordinate     Z 

180.000 

46.742 

.000 

153.769 

60.000 

384.422 

160.000 

60.000 

94.802 

180.000 

60.000 

91.850 

200.000 

60.000 

94.802 

206.231 

60.000 

515.578 

125.274 

80.000 

313.185 

130.000 

80.000 

90.641 

160.000 

80.000 

83.934 

180.000 

80.000 

83.876 

200.000 

80.000 

83.934 

230.000 

80.000 

90.641 

234.726 

80.000 

586.815 

117.769 

100.000 

314.059 

120.000 

100.000 

104.000 

130.000 

100.000 

101.471 

160.000 

100.000 

88.691 

180.000 

100.000 

87.211 

200.000 

100.000 

88.691 

230.000 

100.000 

101.471 

240.000 

100.000 

104.000 

242.231 

100.000 

645.971 

118.093 

120.000 

334.587 

120.000 

120.000 

109.000 

130.000 

120.000 

107.775 

160.000 

120.000 

103.387 

180.000 

120.000 

103.381 

200.000 

120.000 

103.387 

230.000 

120.000 

107.775 

240.000 

120.000 

109.000 

84 


241.907 

120.000 

685.383 

119.407 

130.000 

358.221 

120.000 

130.000 

114.000 

130.000 

130.000 

114.000 

160.000 

130.000 

114.000 

180.000 

130.000 

111.598 

200.000 

130.000 

114.000 

230.000 

130.000 

114.000 

240.000 

130.000 

114.000 

240.593 

130.000 

721.779 

129.127 

140.000 

408.913 

130.000 

140.000 

119.000 

160.000 

140.000 

119.000 

180.000 

140.000 

119.000 

200.000 

140.000 

119.000 

230.000 

140.000 

119.000 

230.873 

140.000 

731.117 

140.000 

160.000 

455.000 

160.000 

160.000 

124.000 

180.000 

160.000 

124.000 

200.000 

160.000 

124.000 

220.000 

160.000 

715.000 

180.000 

160.653 

.000 

Factor  of  Safety  = 

4.308 

SURFACE*   7 

Coordinate     X 

Coordinate     Y 

Coordinate     Z 

180.000 

46.742 

.000 

153.769 

60.000 

384.422 

160.000 

60.000 

94.802 

180.000 

60.000 

91.850 

200.000 

60.000 

94.802 

206.231 

60.000 

515.578 

125.274 

80.000 

313.185 

130.000 

80.000 

90.641 

160.000 

80.000 

83.934 

180.000 

80.000 

83.876 

200.000 

80.000 

83.934 

230.000 

80.000 

90.641 

234.726 

80.000 

586.815 

117.769 

100.000 

314.059 

120.000 

100.000 

104.000 

130.000 

100.000 

101.471 

160.000 

100.000 

88.691 

180.000 

100.000 

87.211 

200.000 

100.000 

88.691 

230.000 

100.000 

101.471 

240.000 

100.000 

104.000 

242.231 

100.000 

645.971 

118.093 

120.000 

334.587 

120.000 

120.000 

109.000 

130.000 

120.000 

107.775 

160.000 

120.000 

103.387 

180.000 

120.000 

103.381 

85 


200.000 

120.000 

103.387 

230.000 

120.000 

107.775 

240.000 

120.000 

109.000 

241.907 

120.000 

685.383 

119.407 

130.000 

358.221 

120.000 

130.000 

114.000 

130.000 

130.000 

114.000 

160.000 

130.000 

114.000 

180.000 

130.000 

111.598 

200.000 

130.000 

114.000 

230.000 

130.000 

114.000 

240.000 

130.000 

114.000 

240.593 

130.000 

721.779 

129.127 

140.000 

408.913 

130.000 

140.000 

119.000 

160.000 

140.000 

119.000 

180.000 

140.000 

119.000 

200.000 

140.000 

119.000 

230.000 

140.000 

119.000 

230.873 

140.000 

731.117 

140.000 

160.000 

455.000 

160.000 

160.000 

124.000 

180  ..000 

160.000 

124.000 

200.000 

160.000 

124.000 

220.000 

160.000 

715.000 

180.000 

160.653 

.000 

Factor  of  Safety  =    4.308 


SURFACE/!'   8 

Coordinate     X 

Coordinate     Y 

Coordinate     Z 

180.000 

46.742 

.000 

153.769 

60.000 

384.422 

160.000 

60.000 

94.802 

180.000 

60.000 

91.850 

200.000 

60.000 

94.802 

206.231 

60.000 

515.578 

125.274 

80.000 

313.185 

130.000 

80.000 

90.641 

160.000 

80.000 

83.934 

180.000 

80.000 

83.876 

200.000 

80.000 

83.934 

230.000 

80.000 

90.641 

234.726 

80.000 

586.815 

117.769 

100.000 

314.059 

120.000 

100.000 

104.000 

130.000 

100.000 

101.471 

160.000 

100.000 

88.691 

180.000 

100.000 

87.211 

200.000 

100.000 

88.691 

230.000 

100.000 

101.471 

240.000 

100.000 

104.000 

242.231 

100.000 

645.971 

118.093 

120.000 

334.587 

120.000 

120.000 

109.000 

86 


130.000 

120.000 

107.775 

160.000 

120.000 

103.387 

180.000 

120.000 

103.381 

200.000 

120.000 

103.387 

230.000 

120.000 

107.775 

240.000 

120.000 

109.000 

241.907 

120.000 

685.383 

119.407 

130.000 

358.221 

120.000 

130.000 

114.000 

130.000 

130.000 

114.000 

160.000 

130.000 

114.000 

180.000 

130.000 

111.598 

200.000 

130.000 

114.000 

230.000 

130.000 

114.000 

240.000 

130.000 

114.000 

240.593 

130.000 

721.779 

129.127 

140.000 

408.913 

130.000 

140.000 

119.000 

160.000 

140.000 

119.000 

180.000 

140.000 

119.000 

200.000 

140.000 

119.000 

230.000 

140.000 

119.000 

230.873 

140.000 

731.117 

140.000 

160.000 

455.000 

160.000 

160.000 

124.000 

180.000 

160.000 

124.000 

200.000 

160.000 

124.000 

220.000 

160.000 

715.000 

180.000 

160.653 

.000 

Factor  of  Safety  = 

4.308 

SURFACE  #   9 

Coordinate     X 

Coordinate     Y 

Coordinate    Z 

180.000 

46.742 

.000 

153.769 

60.000 

384.422 

160.000 

60.000 

94.802 

180.000 

60.000 

91.850 

200.000 

60.000 

94.802 

206.231 

60.000 

515.578 

125.274 

80.000 

313.185 

130.000 

80.000 

90.641 

160.000 

80.000 

83.934 

180.000 

80.000 

83.876 

200.000 

80.000 

83.934 

230.000 

80.000 

90.641 

234.726 

80.000 

586.815 

117.769 

100.000 

314.059 

120.000 

100.000 

104.000 

130.000 

100.000 

101.471 

160.000 

100.000 

88.691 

180.000 

100.000 

87.211 

200.000 

100.000 

88.691 

230.000 

100.000 

101.471 

240.000 

100.000 

104.000 

87 


242.231 

100.000 

645.971 

118.093 

120.000 

334.587 

120.000 

120.000 

109.000 

130.000 

120.000 

107.775 

160.000 

120.000 

103.387 

180.000 

120.000 

103.381 

200.000 

120.000 

103.387 

230.000 

120.000 

107.775 

240.000 

120.000 

109.000 

241.907 

120.000 

685.383 

119.407 

130.000 

358.221 

120.000 

130.000 

114.000 

130.000 

130.000 

114.000 

160.000 

130.000 

114.000 

180.000 

130.000 

111.598 

200.000 

130.000 

114.000 

230.000 

130.000 

114.000 

240.000 

130.000 

114.000 

240.593 

130.000 

721.779 

129.127 

140.000 

408.913 

130.000 

140.000 

119.000 

160.000 

140.000 

119.000 

180.000 

140.000 

119.000 

200.000 

140.000 

119.000 

230.000 

140.000 

119.000 

230.873 

140.000 

731.117 

140.000 

160.000 

455.000 

160.000 

160.000 

124.000 

180.000 

160.000 

124.000 

200.000 

160.000 

124.000 

220.000 

160.000 

715.000 

180.000 

160.653 

.000 

Factor  of  Safety  = 

4.308 

SURFACE  #  10 

Coordinate    X 

Coordinate    Y 

Coordinate    Z 

180.000 

43.397 

.000 

150.678 

60.000 

376.696 

160.000 

60.000 

88.254 

180.000 

60.000 

86.833 

200.000 

60.000 

88.254 

209.322 

60.000 

523.304 

122.693 

80.000 

306.733 

130.000 

80.000 

97.993 

160.000 

80.000 

83.627 

180.000 

80.000 

82.713 

200.000 

80.000 

83.627 

230.000 

80.000 

97.993 

237.307 

80.000 

593.267 

114.992 

100.000 

306.656 

120.000 

100.000 

99.357 

130.000 

100.000 

89.323 

160.000 

100.000 

88.130 

180.000 

100.000 

87.966 

88 


200.000 

100.000 

88.130 

230.000 

100.000 

89.323 

240.000 

100.000 

99.357 

245.008 

100.000 

653.374 

116.531 

120.000 

330.162 

120.000 

120.000 

109.000 

130.000 

120.000 

109.000 

160.000 

120.000 

107.418 

180.000 

120.000 

102.401 

200.000 

120.000 

107.418 

230.000 

120.000 

109.000 

240.000 

120.000 

109.000 

243.469 

120.000 

689.808 

118.355 

130.000 

355.065 

120.000 

130.000 

114.000 

130.000 

130.000 

114.000 

160.000 

130.000 

112.261 

180.000 

130.000 

112.238 

200.000 

130.000 

112.261 

230.000 

130.000 

114.000 

240.000 

130.000 

114.000 

241.645 

130.000 

724.935 

128.958 

140.000 

408.377 

130.000 

140.000 

119.000 

160.000 

140.000 

119.000 

180.000 

140.000 

119.000 

200.000 

140.000 

119.000 

230.000 

140.000 

119000 

231.042 

140.000 

731.653 

180.000 

156.018 

.000 

Factor  of  Safety  = 

4.552 
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Example  3 

Geometry  of  the  Example  3  is  shown  on  Figure  B3.   The  following 
soil  parameters  were  used: 
Unit  weight  of  soil      11 0  pcf 
Cohesion  100  psf 

Friction  angle  28  deg 


90 


A 


90    ft 


^- 

a 
n 


I 


f 


28:0    ft 


A 


Sect  ion    A- A 


90    ft 


Figure  B3       Illustration  for  Example  3 
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PC-STABL3D  * 

3-DIMENSIOANL  SLOPE  STABILITY  PROGRAM 
FROM  PURDUE  UNIVERSITY  ♦ 

VERSION  2.1  * 


Number  of  X  coordinates  :  15 
Number  of  Y  coordinates  :  13 
Number  of  soils  :     1 


X  COORDINATES 

coordinate  X( 

1)  = 

40.00 

coordinate  X( 

2)  = 

60.00 

coordinate  X( 

3)  = 

80.00 

coordinate  X( 

4)  = 

100.00 

coordinate  X( 

5)  = 

120.00 

coordinate  X( 

6)  = 

130.00 

coordinate  X( 

7)  = 

160.00 

coordinate  X( 

8)  = 

180.00 

coordinate  X( 

9)  = 

200.00 

coordinate  X( 

10)  = 

230.00 

coordinate  X( 

11)  = 

240.00 

coordinate  X( 

12)  = 

260.00 

coordinate  X( 

13)  = 

280.00 

coordinate  X{ 

14)  = 

300.00 

coordinate  X( 

15)  = 

320.00 

Y  COORDINATES  : 
coordinate  Y(  1)  =  .00 
coordinate  Y(  2)  =  20.00 
coordinate  Y(  3)  =  40.00 
coordinate  Y(  4)  =  60.00 
coordinate  Y(   5)  =     80.00 

coordinate  Y(   6)  =  100.00 

coordinate  Y(   7)  =  120.00 

coordinate  Y(   8)  =  130.00 

coordinate  Y(   9)  =  140.00 

coordinate  Y(  10)  =  160.00 

coordinate  Y(  1 1)  =  180.00 

coordinate  Y(  12)  =  200.00 

coordinate  Y(  13)  =  230.00 

COORDINATES  Z  FOR  SOIL  #    1 


Z(l,  1)  = 

100.00 

Z(l,2)  = 

100.00 

Z(l,3)  = 

100.00 

Z  (  1,  4)  = 

100.00 

Z(I,5)  = 

100.00 

Z(  1,6)  = 

100.00 

Z(l,7)  = 

100.00 

Z(  1,8)  = 

100.00 

Z(l,9)  = 

100.00 

Z(  1,10)  = 

100.00 

Z(  1,11)  = 

100.00 

Z(  1,12)  = 

100.00 

Z(l,13)  = 

100.00 

Z(2,  I)  = 

100.00 

Z  (  2,  2)  = 

100.00 

Z  (  2,  3)  = 

100.00 

Z  (  2,  4)  = 

100.00 

Z  (  2,  5)  = 

100.00 

Z  (  2,  6)  = 

100.00 

Z(2,  7)  = 

103.33 

Z  (  2,  8)  = 

106.67 

Z  (  2,  9)  = 

106.67 

Z(2,10)  = 

106.67 

Z(2,ll)  = 

106.67 

Z(2,12)  = 

106.67 

Z(2,13)  = 

106.67 

Z(3,  1)  = 

100.00 

Z  (  3,  2)  = 

100.00 

Z(3,  3)  = 

100.00 

Z(3,4)  = 

100.00 
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Z( 

3.5)  = 

lOO.OO 

Z  (  3.  6)  = 

103.33 

Z(3,7)  = 

110.00 

Z( 

3,8)  = 

113.33 

Z  (  3,  9)  = 

113.33 

Z(3.10)  = 

113.33 

Z( 

3.11)  = 

113.33 

Z(3,12)  = 

113.33 

Z(3,13)  = 

113.33 

Z( 

4.  1)  = 

100.00 

Z  (  4,  2)  = 

100.00 

Z  (  4,  3)  = 

100.00 

Z( 

4,  4)  = 

100.00 

Z  {  4,  5)  = 

103.33 

Z  (  4,  6)  = 

110.00 

Z( 

4.7)  = 

116.67 

Z  (  4,  8)  = 

120.00 

Z  (  4.  9)  = 

120.00 

Z( 

4.10)  = 

120.00 

Z(4,ll)  = 

120.00 

Z(4,12)  = 

120.00 

Z( 

4,13)  = 

120.00 

Z(5,  1)  = 

100.00 

Z  (  5.  2)  = 

100.00 

Z( 

5.3)  = 

100.00 

Z(5.4)  = 

103.33 

Z(5.  5)  = 

110.00 

Z( 

5.6)  = 

116.67 

Z(5.  7)  = 

123.33 

Z  (  5,  8)  = 

126.67 

Z( 

5,9)  = 

126.67 

Z(5.10)  = 

126.67 

Z(5,I1)  = 

126.67 

Z( 

5,12)  = 

126.67 

Z(5.13)  = 

126.67 

Z(6,  1)  = 

100.00 

z 

6,2)  = 

100.00 

Z  (  6.  3)  = 

100.00 

Z  (  6,  4)  = 

106.67 

z 

6,5)  = 

113.33 

Z  (  6.  6)  = 

120.00 

Z(6,  7)  = 

126.67 

z 

6,  8)  = 

130.00 

Z  (  6,  9)  = 

130.00 

Z  (  6,10)  = 

130.00 

z< 

6,11)  = 

130.00 

Z(6,12)  = 

130.00 

Z(6,13)  = 

130.00 

z 

7,1)  = 

100.00 

Z  (  7,  2)  = 

100.00 

Z  (  7,  3)  = 

100.00 

Z( 

7,4)  = 

106.67 

Z  (  7,  5)  = 

113.33 

Z  (  7.  6)  = 

120.00 

z 

7,7)  = 

126.67 

Z  (  7,  8)  = 

130.00 

Z  (  7,  9)  = 

130.00 

z 

7.10)  = 

130.00 

Z(7,ll)  = 

130.00 

Z  (  7,12)  = 

130.00 

z 

7.13)  = 

130.00 

Z  (  8,  1)  = 

100.00 

Z  (  8,  2)  = 

100.00 

z 

8.3)  = 

100.00 

Z  (  8,  4)  = 

106.67 

Z  (  8,  5)  = 

113.33 

z 

8.6)  = 

120.00 

Z(8,7)  = 

126.67 

Z  (  8.  8)  = 

130.00 

z 

8,9)  = 

130.00 

Z(8,10)  = 

130.00 

Z(8,ll)  = 

130.00 

z 

8,12)  = 

130.00 

Z(8,13)  = 

130.00 

Z(9.  1)  = 

100.00 

z 

9,2)  = 

100.00 

Z  (  9,  3)  = 

100.00 

Z  (  9,  4)  = 

106.67 

z 

9,5)  = 

113.33 

Z  (  9,  6)  = 

120.00 

Z(9,  7)  = 

126.67 

z 

9,  8)  = 

130.00 

Z  (  9,  9)  = 

130.00 

Z  (  9,10)  = 

130.00 

z 

9,11)  = 

130.00 

Z{9,12)  = 

130.00 

Z(9,13)  = 

130.00 

z 

10,  1)  = 

100.00 

Z  (10,  2)  = 

100.00 

Z  (10,  3)  = 

100.00 

z 

10,  4)  = 

106.67 

Z  (10,  5)  = 

113.33 

Z  (10,  6)  = 

120.00 

z 

10,7)  = 

126.67 

Z  (10.  8)  = 

130.00 

Z  (10,  9)  = 

130.00 

z 

10,10)  = 

130.00 

Z  (10,11)  = 

130.00 

Z  (10,12) 

=  130.00 

z 

10,13)  = 

130.00 

Z(ll.  1)  = 

100.00 

Z(ll,2)  = 

=  100.00 

z 

11,3)  = 

100.00 

Z(11.4)  = 

103.33 

Z(ll,5)  = 

110.00 

z 

11,6)  = 

116.67 

Z(ll,7)  = 

123.33 

Z(ll,8)  = 

126.67 

z 

.11,9)  = 

126.67 

Z  (11,10)  = 

126.67 

Z(ll,ll)  = 

=  126.67 

z 

'11,12)  = 

126.67 

Z  (11,13)  = 

126.67 

Z(12,  1)  = 

=  100.00 

z 

12,  2)  = 

100.00 

Z  (12,  3)  = 

100.00 

Z  (12,  4)  = 

100.00 

z 

12,  5)  = 

103.33 

Z  (12.  6)  = 

110.00 

Z(12,7)  = 

116.67 

z 

.12,  8)  = 

120.00 

Z  (12.  9)  = 

120.00 

Z  (12,10)  = 

=  120.00 

z 

12,11)  = 

120.00 

Z  (12,12)  = 

120.00 

Z  (12,13) 

=  120.00 

z 

13,1)  = 

100.00 

Z(13,2)  = 

100.00 

Z(13,3)  = 

100.00 

z 

13.  4)  = 

100.00 

Z(13,5)  = 

100.00 

Z(13,6)  = 

103.33 

z 

(13.7)  = 

110.00 

Z(13,8)  = 

113.33 

Z(13,9)  = 

113.33 

z 

l13.10)  = 

113.33 

Z  (13.11)  = 

=  113.33 

Z  (13.12) 

=  113.33 

z 

[13.13)  = 

113.33 

Z  (14,  1)  = 

100.00 

Z  (14,  2)  = 

=  100.00 

z 

(14.  3)  = 

100.00 

Z  (14,  4)  = 

100.00 

Z  (14,  5)  = 

100.00 

z 

(14.  6)  = 

100.00 

Z(14,  7)  = 

103.33 

Z  (14,  8)  = 

106.67 

z 

(14,  9)  = 

106.67 

Z  (14,10)  = 

106.67 

Z  (14,11)  = 

=  106.67 

z 

(14,12)  = 

106.67 

Z  (14,13)  = 

=  106.67 

Z(15,  1)  = 

=  100.00 

z 

(15,2)  = 

100.00 

Z(15.3)  = 

100.00 

Z(15,4)  = 

100.00 

z 

(15,5)  = 

100.00 

Z(15,6)  = 

100.00 

Z(15,7)  = 

100.00 

z 

(15,  8)  = 

100.00 

Z(15.9)  = 

100.00 

Z  (15,10)  = 

=  100.00 

z 

(15.11)  = 

100.00 

Z  (15.12)  = 

=  100.00 

Z  (15,13) 

=  100.00 

BOUNDARIES  FOR  GENERATION  IN  THE  Y  DIRECTION 
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Main  Axis  of  Sliding  was  stablished  at  X  =    180.00 

Minimum  point  for  initiation  of  polygonals  at  Y  =     20.00 
Interval  for  initiation  of  polygonals  is  =     40.00 
Minimum  point  for  termination  of  polygonals  at  Y  =    1 10.00 
Interval  for  termination  of  polygonals  is  =     60.00 

BOUNDARIES  FOR  GENERATION  IN  THE  X  DIRECTION  : 


Coordinate  Y  =        .00 

Minimum  point  for  initiation  of  polygonals  at  X  =    120.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =    200.00 

Interval  for  termination  of  polygonals  is  =     40.00 


Coordinate  Y  =     20.00 

Minimum  point  for  initiation  of  polygonals  at  X  =    120.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =    200.00 

Interval  for  termination  of  polygonals  is  =     40.00 


Coordinate  Y  =     40.00 

Minimum  point  for  initiation  of  polygonals  at  X  =    120.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =    200.00 

Interval  for  termination  of  polygonals  is  =     40.00 


Coordinate  Y  =     60.00 

Minimum  point  for  initiation  of  polygonals  at  X  =    100.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =    220.00 

Interval  for  termination  of  polygonals  is  =     40.00 


Coordinate  Y  =     80.00 

Minimum  point  for  initiation  of  polygonals  at  X  =    100.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =    220.00 

Interval  for  termination  of  polygonals  is  =     40.00 


Coordinate  Y  =    100.00 

Minimum  point  for  initiation  of  polygonals  at  X  =    100.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =    220.00 

Interval  for  termination  of  polygonals  is  =     40.00 


Coordinate  Y  =    120.00 

Minimum  point  for  initiation  of  polygonals  at  X  =    100.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =    220.00 

Interval  for  termination  of  polygonals  is  =     40.00 
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Coordinate  Y  =    130.00 

Minimum  point  for  initiation  of  polygonals  at  X  =    100.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =    220.00 

Interval  for  termination  of  polygonals  is  =     40.00 


Coordinate  Y  =    140.00 

Minimum  point  for  initiation  of  polygonals  at  X  =    100.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =   220.00 

Interval  for  termination  of  polygonals  is  =     40.00 


Coordinate  Y  =    160.00 

Minimum  point  for  initiation  of  polygonals  at  X  =    120.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =   200.00 

Interval  for  termination  of  polygonals  is  =     40.00 


Coordinate  Y  =    180.00 

Minimum  point  for  initiation  of  polygonals  at  X  =    120.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =    200.00 

Interval  for  termination  of  polygonals  is  =     40.00 


Coordinate  Y  =    200.00 

Minimum  point  for  initiation  of  polygonals  at  X  =    120.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =   200.00 

Interval  for  termination  of  polygonals  is  =     40.00 


Coordinate  Y  =    230.00 

Minimum  point  for  initiation  of  polygonals  at  X  =    120.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =    200.00 

Interval  for  termination  of  polygonals  is  =     40.00 


BOUNDARIES  FOR  GENERATION  IN  THE  Z  DIRECTION  : 


Zmin(  1,1)  = 

79.00 

Delta  Z(  1,  1)  = 

20.00 

Zmin(  I,  2)  = 

79.00 

Delta  Z(  1,  2)  = 

20.00 

Zmin(  1,  3)  = 

79.00 

Delta  Z(  1,  3)  = 

20.00 

Zmin(  1,4)  = 

79.00 

Delta  Z(  1,4)  = 

20.00 

Zmin(  1,5)  = 

79.00 

Delta  Z(  1,  5)  = 

20.00 

Zmin(  1,6)  = 

79.00 

Delta  Z(  1 ,  6)  = 

20.00 

Zmin(  1,7)  = 

79.00 

Delta  Z(  1 ,  7)  = 

20.00 

Zmin(  1,8)  = 

79.00 

Delta  Z(  1,  8)  = 

20.00 

Zmin(  1,  9)  = 

79.00 

Delta  Z(  1,  9)  = 

20.00 

Zmin(  1,10)  = 

79.00 

Delta  Z(  1,10)  = 

20.00 

Zmin(  1,11)  = 

79.00 

Delta  Z(  1,11)  = 

20.00 

Zmin(  1,12)  = 

79.00 

Delta  Z(  1,12)  = 

20.00 

Zmin(  1,13)  = 

79.00 

Delta  Z(  1,13)  = 

20.00 
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Zrain( 

2 

1)  = 

79.00 

Delta  Z( 

2,1)  = 

20.00 

Zmin( 

2,2)  = 

79.00 

Delu  Z( 

2,2)  = 

20.00 

Zinin( 

2.3)  = 

79.00 

Delta  Z( 

2,3)  = 

20.00 

Zinin( 

2,4)  = 

79.00 

Delu  Z( 

2,4)  = 

20.00 

Zinin( 

2,5)  = 

79.00 

Delta  Z( 

2,5)  = 

20.00 

Zmin( 

2,6)  = 

79.00 

Delta  Z( 

2,6)  = 

20.00 

Zinin( 

2,7)  = 

79.00 

Delta  Z( 

2,7)  = 

21.00 

Zmin( 

2.  8)  = 

79.00 

Delu  Z( 

2,8)  = 

24.00 

Zmin( 

2 

9)  = 

79.00 

DeluZ( 

2,9)  = 

24.00 

Zmin( 

2 

10)  = 

79.00 

Delu  Z( 

2.10)  = 

24.00 

Zmin( 

2 

11)  = 

79.00 

Delu  Z( 

2.11)  = 

24.00 

Zinin( 

2 

12)  = 

79.00 

Delu  Z( 

2.12)  = 

24.00 

Zmin( 

2 

13)  = 

79.00 

Delu  Z( 

2.13)  = 

24.00 

Zmin( 

3 

1)  = 

79.00 

Delu  Z( 

3.1)  = 

20.00 

Zmin( 

3 

2)  = 

79.00 

DeluZ( 

3.2)  = 

20.00 

Zmin( 

3 

3)  = 

79.00 

Delu  Z( 

3,3)  = 

20.00 

Zmin( 

3 

4)  = 

79.00 

Delu  Z( 

3,4)  = 

20.00 

Zinin( 

3 

5)  = 

79.00 

Delta  Z( 

3,5)  = 

20.00 

Zmin( 

3 

6)  = 

79.00 

Delu  Z( 

3,6)  = 

22.00 

Zmin( 

3 

7)  = 

79.00 

Delu  Z( 

3,7)  = 

25.00 

Zmin( 

3 

8)  = 

79.00 

Delu  Z( 

3,8)  = 

30.00 

Zinin( 

3 

9)  = 

79.00 

Delu  Z( 

3,9)  = 

30.00 

Zmin( 

3 

10)  = 

79.00 

DeluZ 

3.10)  = 

30.00 

Zminl 

3 

11)  = 

79.00 

DeluZ 

3.11)  = 

30.00 

Zmin( 

3 

12)  = 

79.00 

DeluZ 

3.12)  = 

30.00 

Ztnin( 

3 

13)  = 

79.00 

DeluZ 

3.13)  = 

30.00 

Zminl 

4 

1)  = 

79.00 

Delu  Z( 

4,  1)  = 

20.00 

Zminl 

4 

2)  = 

79.00 

Delu  Z( 

4,2)  = 

20.00 

Zmin( 

4 

3)  = 

79.00 

Delu  Z( 

4,3)  = 

20.00 

Zmin( 

4 

4)  = 

79.00 

Delu  Z( 

4,  4)  = 

20.00 

Zmin( 

4 

5)  = 

79.00 

Delu  Z( 

4,5)  = 

22.00 

Zmin( 

4 

6)  = 

79.00 

Delu  Z( 

4,6)  = 

25.00 

Zminl 

4 

7)  = 

79.00 

Delu  Z( 

4,  7)  = 

32.00 

Zmin( 

4 

8)  = 

79.00 

Delu  Z( 

4.8)  = 

35.00 

Zmin( 

4 

9)  = 

79.00 

Delu  Z( 

4.  9)  = 

35.00 

Zmin( 

4 

10)  = 

79.00 

DeluZ 

4,10)  = 

35.00 

Zmin( 

4 

U)  = 

79.00 

DeluZ 

4,11)  = 

35.00 

Zminl 

4 

12)  = 

79.00 

DeluZ 

4,12)  = 

35.00 

Zminl 

4 

13)  = 

79.00 

DeluZ 

4,13)  = 

35.00 

Zmin( 

5 

1)  = 

79.00 

Delu  Z( 

5,1)  = 

20.00 

Zminl 

5 

2)  = 

79.00 

Delu  Z( 

5,2)  = 

20.00 

Zminl 

5 

3)  = 

79.00 

Delu  Z( 

5,3)  = 

20.00 

Zmin( 

5 

4)  = 

79.00 

Delu  Z( 

5.4)  = 

22.00 

Zminl 

5 

5)  = 

79.00 

Delu  Z( 

5,5)  = 

25.00 

Zmin( 

5 

6)  = 

79.00 

Delu  Z( 

5.6)  = 

30.00 

Zmin( 

5 

7)  = 

79.00 

DeluZ( 

5.7)  = 

35.00 

Zminl 

5 

8)  = 

79.00 

Delu  Z( 

5,8)  = 

35.00 

Zmin( 

5 

9)  = 

79.00 

Delu  Z( 

5,9)  = 

35.00 

Zmin( 

5 

10)  = 

79.00 

DeluZ 

5,10)  = 

35.00 

Zmin( 

5 

11)  = 

79.00 

DeluZ 

5,11)  = 

35.00 

Zmin( 

5 

12)  = 

79.00 

DeluZ 

'5,12)  = 

35.00 

Zmin( 

5 

13)  = 

79.00 

DeluZ 

.5,13)  = 

35.00 

Zmin( 

6 

I)  = 

79.00 

Delu  Z( 

6,1)  = 

20.00 

Zmin( 

6 

2)  = 

79.00 

Delu  Z( 

6,2)  = 

20.00 

Zmin( 

6 

3)  = 

79.00 

Delu  Z( 

6,3)  = 

20.00 

Zmin( 

6 

4)  = 

79.00 

Delu  Z( 

6,4)  = 

25.00 

Zmin( 

6 

5)  = 

79.00 

Delu  Z( 

6,5)  = 

30.00 

Zmin( 

6 

6)  = 

79.00 

Delu  Z( 

6,  6)  = 

35.00 
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Zmin(  6,  7)  = 

79.00 

Delta  Z(  6,  7)  = 

40.00 

Zmin(  6,  8)  = 

79.00 

Delu  Z(  6,  8)  = 

45.00 

Zmin(  6,  9)  = 

79.00 

Delia  Z(  6,  9)  = 

45.00 

Zmin(6,10)  = 

79.00 

Delta  Z(  6,10)  = 

45.00 

Zinin(6,ll)  = 

79.00 

Delta  Z(  6,11)  = 

45.00 

Zmin(  6,12)  = 

79.00 

Delta  Z(  6.12)  = 

45.00 

Zmin(6,13)  = 

79.00 

Delta  Z(  6,13)  = 

45.00 

Zinin(  7,  1)  = 

79.00 

Delta  Z(  7,  1)  = 

20.00 

Zrain(  7,  2)  = 

79.00 

Delu  Z(  7,  2)  = 

20.00 

Zmin(  7,  3)  = 

79.00 

Delta  Z(  7,  3)  = 

20.00 

Zmin(  7,  4)  = 

79.00 

Delta  Z(  7,  4)  = 

25.00 

Zmin(  7,  5)  = 

79.00 

Delta  Z(  7,  5)  = 

30.00 

Zmin(  7,  6)  = 

79.00 

Delu  Z(  7,  6)  = 

35.00 

Zinin(  1,1)  = 

79.00 

Delu  Z(  7,  7)  = 

40.00 

Zinin(  7,  8)  = 

79.00 

Delu  Z(  7,  8)  = 

45.00 

Zmin(  7,  9)  = 

79.00 

Delu  Z(  7,  9)  = 

45.00 

Zmin(7,10)  = 

79.00 

Delu  Z(  7,10)  = 

45.00 

Zmin(7,ll)  = 

79.00 

Delu  Z(  7,11)  = 

45.00 

Zinin(7,12)  = 

79.00 

Delu  Z(  7,12)  = 

45.00 

Zmin(7,13)  = 

79.00 

Delu  Z(  7,13)  = 

45.00 

Zmin(  8,  1)  = 

79.00 

Delu  Z(  8,  1)  = 

20.00 

Zmin(  8,  2)  = 

79.00 

Delu  Z(  8,  2)  = 

20.00 

Zinin(  8,  3)  = 

79.00 

Delu  Z(  8,  3)  = 

20.00 

Zinin(  8,  4)  = 

79.00 

Delu  Z(  8,  4)  = 

25.00 

Zrain(  8,  5)  = 

79.00 

Delu  Z(  8,  5)  = 

30.00 

Zmin(  8,  6)  = 

79.00 

Delu  Z(  8,  6)  = 

35.00 

Zmin(  8,  7)  = 

79.00 

Delu  Z(  8,  7)  = 

40.00 

Zmin(  8,  8)  = 

79.00 

Delu  Z(  8,  8)  = 

45.00 

ZininC  8,  9)  = 

79.00 

Delu  Z(  8,  9)  = 

45.00 

Zmin(8,10)  = 

79.00 

Delu  Z(  8,10)  = 

45.00 

Zmin(8,ll)  = 

79.00 

Delu  Z(  8,11)  = 

45.00 

Zmin(  8,12)  = 

79.00 

Delu  Z(8,12)  = 

45.00 

Zmin(8,13)  = 

79.00 

Delu  Z(  8,13)  = 

45.00 

Zmin(  9,  1)  = 

79.00 

Delu  Z(  9,  1)  = 

20.00 

Zmin(9,  2)  = 

79.00 

Delu  Z(  9,  2)  = 

20.00 

ZminC  9,  3)  = 

79.00 

Delu  Z(  9,  3)  = 

20.00 

Zmin(  9,  4)  = 

79.00 

Delu  Z(  9,  4)  = 

25.00 

Zmin(  9,  5)  = 

79.00 

Delu  Z(  9,  5)  = 

30.00 

Zmin(  9,  6)  = 

79.00 

Delu  Z(  9,  6)  = 

35.00 

Zmin(  9,7)  = 

79.00 

Delu  Z(  9,  7)  = 

40.00 

Zmin(  9,  8)  = 

79.00 

Delu  Z(  9,  8)  = 

45.00 

Zmin(  9,  9)  = 

79.00 

Delu  Z(  9,  9)  = 

45.00 

Zmin(9,10)  = 

79.00 

Delu  Z(  9,10)  = 

45.00 

Zinin(9,ll)  = 

79.00 

Delu  Z(  9,11)  = 

45.00 

Zinin(9,12)  = 

79.00 

Delu  Z(  9,12)  = 

45.00 

Zinin(9,13)  = 

79.00 

Delu  Z(  9,13)  = 

45.00 

ZmindO,  1)  = 

79.00 

Delu  Z(10,  1)  = 

20.00 

Zmin(10,  2)  = 

79.00 

Delu  Z(10,  2)  = 

20.00 

ZminClO,  3)  = 

79.00 

Delu  Z(10,  3)  = 

20.00 

ZminClO,  4)  = 

79.00 

Delu  Z(10,  4)  = 

25.00 

Zmin(10,  5)  = 

79.00 

Delu  Z(10,  5)  = 

30.00 

Zmin(10,  6)  = 

79.00 

Delu  Z(10,  6)  = 

35.00 

Zmin(10,  7)  = 

79.00 

Delu  Z(10,  7)  = 

40.00 

Zmin(10,  8)  = 

79.00 

Delu  Z(10,  8)  = 

45.00 

Zmin(10,  9)  = 

79.00 

Delu  Z(10,  9)  = 

45.00 

Zmin(10,10)  = 

79.00 

Delu  Z(10,10)  = 

45.00 

Zmin(10,ll)  = 

79.00 

DeluZ(10,ll)  = 

45.00 

Zmin(10,12)  = 

79.00 

DeluZ(10,12)  = 

45.00 
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Zmin( 

10,13)  = 

79.00 

Delta  Z(10,13)  = 

45.00 

Zmin( 

11,1)  = 

79.00 

Delta  Z(ll,  1)  = 

20.00 

Z(nin( 

11,2)  = 

79.00 

DeluZ(ll,2)  = 

20.00 

Zmin( 

11,3)  = 

79.00 

DeluZ(ll,3)  = 

20.00 

Zmin( 

11,4)  = 

79.00 

Delta  Z(l  1,4)  = 

22.00 

Zmin( 

11,5)  = 

79.00 

Delta  Z(l  1,5)  = 

25.00 

Zmin( 

11,6)  = 

79.00 

Delta  Z(l  1,6)  = 

30.00 

Zmin( 

11,7)  = 

79.00 

DeltaZ(ll,7)  = 

35.00 

Zmin( 

11,8)  = 

79.00 

Delta  Z(l  1,8)  = 

35.00 

Zmin( 

11,9)  = 

79.00 

DeltaZ(n,9)  = 

35.00 

Zinin( 

11,10)  = 

79.00 

Delta  Z(l  1,10)  = 

35.00 

Zmin( 

11,11)  = 

79.00 

Delta  Z(U,  11)  = 

35.00 

Zmin( 

11,12)  = 

79.00 

Delta  Z(l  1,12)  = 

35.00 

Zinin( 

11,13)  = 

79.00 

Delta  Z(l  1,13)  = 

35.00 

Zmin( 

12,  1)  = 

79.00 

Delta  Z(12,  1)  = 

20.00 

Zinin( 

12,  2)  = 

79.00 

Delta  Z(12,  2)  = 

20.00 

Zinin( 

12,  3)  = 

79.00 

Delta  Z(12,  3)  = 

20.00 

Zmin( 

12,  4)  = 

79.00 

Delta  Z(12,  4)  = 

20.00 

Zmin( 

12,  5)  = 

79.00 

Delta  Z(12,  5)  = 

22.00 

Zmin( 

12,  6)  = 

79.00 

Delta  Z(12,  6)  = 

25.00 

Zinin( 

12,7)  = 

79,00 

Delta  Z(12,  7)  = 

32.00 

Zmin( 

12,  8)  = 

79.00 

Delta  Z(12,  8)  = 

35.00 

Zmin( 

12,  9)  = 

79.00 

Delta  Z(12,  9)  = 

35.00 

Zmin( 

12,10)  = 

79.00 

Delta  Z(12,10)  = 

35.00 

Zmin( 

12,11)  = 

79.00 

Delta  Z(12,n)  = 

35.00 

Zinin( 

12,12)  = 

79.00 

Delta  Z(12,12)  = 

35.00 

Zimn( 

12,13)  = 

79.00 

Delta  Z(12,13)  = 

35.00 

Zmin( 

13,1)  = 

79.00 

Delta  Z(13,  1)  = 

20.00 

Zniin( 

13,  2)  = 

79.00 

Delta  Z(13,  2)  = 

20.00 

Zmin( 

13,  3)  = 

79.00 

Delta  Z(13,  3)  = 

20.00 

Zmin( 

13,4)  = 

79.00 

Delta  Z(13,  4)  = 

20.00 

Zmin( 

13,5)  = 

79.00 

Delta  Z(13,  5)  = 

20.00 

Zmin( 

13,6)  = 

79.00 

Delta  Z(13,  6)  = 

22.00 

Zmin( 

13,7)  = 

79.00 

Delta  Z(13,  7)  = 

25.00 

Zmin( 

13,8)  = 

79.00 

Delta  Z(13,  8)  = 

30.00 

Zmin( 

13,9)  = 

79.00 

Delta  Z(13,  9)  = 

30.00 

Zmin( 

13,10)  = 

79.00 

Delta  Z(13,10)  = 

30.00 

Zmin( 

13,11)  = 

79.00 

Delta  Z(13, 11)  = 

30.00 

Zinin( 

13,12)  = 

79.00 

Delta  Z(13, 12)  = 

30.00 

Zinin( 

13,13)  = 

79.00 

Delta  Z(13,13)  = 

30.00 

Zmin( 

14,  1)  = 

79.00 

Delta  Z(14,  1)  = 

20.00 

Zmin( 

14,  2)  = 

79.00 

Delta  Z(14,  2)  = 

20.00 

ZminC 

14,  3)  = 

79.00 

Delta  Z(14,  3)  = 

20.00 

Ztnin( 

14,  4)  = 

79.00 

Delta  Z(14,  4)  = 

20.00 

Zmin( 

14,  5)  = 

79.00 

Delta  Z(14,  5)  = 

20.00 

Zmin( 

14,  6)  = 

79.00 

Delta  Z(14,  6)  = 

20.00 

Zmin( 

14,7)  = 

79.00 

Delta  Z(14,  7)  = 

21.00 

Zmin( 

14,  8)  = 

79.00 

Delta  Z(14,  8)  = 

24.00 

Zinin( 

14,9)  = 

79.00 

DeltaZ(14,  9)  = 

24.00 

Zinin( 

14,10)  = 

79.00 

Delta  Z(14, 10)  = 

24.00 

Zinin( 

14,11)  = 

79.00 

Delta  Z(14,ll)  = 

24.00 

Zinin( 

14,12)  = 

79.00 

Delta  Z(14,12)  = 

24.00 

Ztnin( 

14,13)  = 

79.00 

Delta  Z(14,13)  = 

24.00 

Zinin( 

15,  1)  = 

79.00 

Delta  Z(15,  1)  = 

20.00 

Zmin( 

15,2)  = 

79.00 

Delta  Z(15,  2)  = 

20.00 

Zmin( 

15,3)  = 

79.00 

Delta  Z(15,  3)  = 

20.00 

Zmin( 

15,4)  = 

79.00 

Delta  Z(15,  4)  = 

20.00 

Zmin( 

15,5)  = 

79.00 

DeltaZ(15,5)  = 

20.00 
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Zmin(15,  6)  = 

79.00 

Delta  Z(15,  6)  = 

20.00 

Zmin(15,  7)  = 

79.00 

Delta  Z(15,  7)  = 

20.00 

Zmin(15,  8)  = 

79.00 

Delta  Z(15,  8)  = 

20.00 

Zmiri(15,  9)  = 

79.00 

Delta  Z(15,  9)  = 

20.00 

Zmin(15,10)  = 

79.00 

Delta  Z(15, 10)  = 

20.00 

Zmin(15,ll)  = 

79.00 

DeluZ(15,n)  = 

20.00 

Zmin(15,12)  = 

79.00 

DeluZ(15,12)  = 

20.00 

Zrain(15,13)  = 

79.00 

Delta  Z(15,13)  = 

20.00 

SOIL  PROPERTIES  : 

Soil       Unit  Weight       Cohesion       Shear  Angle 

1  110.00  100.0  28.0 

Ru  of  soil  #    1  =    .00 

TEN  MOST  CRITICAL  SURFACES  : 


SURFACE*    1 

Coordinate     X 

Coordinate     Y 

Coordinate    Z 

180.000 

40.307 

.000 

148.097 

60.000 

370.244 

160.000 

60.000 

84.276 

180.000 

60.000 

82.207 

200.000 

60.000 

84.276 

211.903 

60.000 

529.756 

121.131 

80.000 

302.828 

130.000 

80.000 

84.292 

160.000 

80.000 

80.698 

180.000 

80.000 

79.154 

200.000 

80.000 

80.698 

230.000 

80.000 

84.292 

238.869 

80.000 

597.172 

113.743 

100.000 

284.358 

120.000 

100.000 

101.000 

130.000 

100.000 

104.000 

160.000 

100.000 

93.758 

180.000 

100.000 

87.428 

200.000 

100.000 

93.758 

230.000 

100.000 

104.000 

240.000 

100.000 

101.000 

246.257 

100.000 

615.642 

117.008 

120.000 

292.519 

120.000 

120.000 

104.000 

130.000 

120.000 

109.000 

160.000 

120.000 

109.000 

180.000 

120.000 

103.140 

200.000 

120.000 

109.000 

230.000 

120.000 

109.000 

240.000 

120.000 

104.000 

242.992 

120.000 

607.481 
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119.850 

130.000 

299.626 

120.000 

130.000 

109.000 

130.000 

130.000 

114.000 

160.000 

130.000 

114.000 

180.000 

130.000 

114.000 

200.000 

130.000 

114.000 

230.000 

130.000 

114.000 

240.000 

130.000 

109.000 

240.150 

130.000 

600.374 

132.629 

140.000 

331.574 

160.000 

140.000 

119.000 

180.000 

140.000 

119.000 

200.000 

140.000 

119.000 

227.371 

140.000 

568.426 

180.000 

152.146 

.000 

Factor  of  Safety  = 

1.603 

SURFACE*   2 

Coordinate     X 

Coordinate     Y 

Coordinate     Z 

180.000 

40.307 

.000 

148.097 

60.000 

370.244 

160.000 

60.000 

84.276 

180.000 

60.000 

82.207 

200.000 

60.000 

84.276 

211.903 

60.000 

529.756 

121.131 

80.000 

302.828 

130.000 

80.000 

84.292 

160.000 

80.000 

80.698 

180.000 

80.000 

79.154 

200.000 

80.000 

80.698 

230.000 

80.000 

84.292 

238.869 

80.000 

597.172 

113.743 

100.000 

284.358 

120.000 

100.000 

101.000 

130.000 

100.000 

104.000 

160.000 

100.000 

93.758 

180.000 

100.000 

87.428 

200.000 

100.000 

93.758 

230.000 

100.000 

104.000 

240.000 

100.000 

101.000 

246.257 

100.000 

615.642 

117.008 

120.000 

292.519 

120.000 

120.000 

104.000 

130.000 

120.000 

109.000 

160.000 

120.000 

109.000 

180.000 

120.000 

103.140 

200.000 

120.000 

109.000 

230.000 

120.000 

109.000 

240.000 

120.000 

104.000 

242.992 

120.000 

607.481 

119.850 

130.000 

299.626 

120.000 

130.000 

109.000 

130.000 

130.000 

114.000 

160.000 

130.000 

114.000 

101 


180.000  130.000  114.000 

200.000  130.000  114.000 

230.000  130.000  114.000 

240.000  130.000  109.000 

240.150  130.000  600.374 

132.629  140.000  331.574 

160.000  140.000  119.000 

180.000  140.000  119.000 

200.000  140.000  119.000 

227.371  140.000  568.426 

180.000  152.146  .000 

Factor  of  Safety  =    1 .603 


SURFACE #    3 

Coordinate     X 

Coordinate     Y 

Coordinate     Z 

180.000 

40.307 

.000 

148.097 

60.000 

370.244 

160.000 

60.000 

84.276 

180.000 

60.000 

82.207 

200.000 

60.000 

84.276 

211.903 

60.000 

529.756 

121.131 

80.000 

302.828 

130.000 

80.000 

84.292 

160.000 

80.000 

80.698 

180.000 

80.000 

79.154 

200.000 

80.000 

80.698 

230.000 

80.000 

84.292 

238.869 

80.000 

597.172 

113.743 

100.000 

284.358 

120.000 

100.000 

101.000 

130.000 

100.000 

104.000 

160.000 

100.000 

93.758 

180.000 

100.000 

87.428 

200.000 

100.000 

93.758 

230.000 

100.000 

104.000 

240.000 

100.000 

101.000 

246.257 

100.000 

615.642 

117.008 

120.000 

292.519 

120.000 

120.000 

104.000 

130.000 

120.000 

109.000 

160.000 

120.000 

109.000 

180.000 

120.000 

103.140 

200.000 

120.000 

109.000 

230.000 

120.000 

109.000 

240.000 

120.000 

104.000 

242.992 

120.000 

607.481 

119.850 

130.000 

299,626 

120.000 

130.000 

109.000 

130.000 

130.000 

114.000 

160.000 

130.000 

114.000 

180,000 

130.000 

114.000 

200.000 

130.000 

114.000 

230.000 

130.000 

114.000 

240.000 

130.000 

109.000 

102 


240.150 

130.000 

600.374 

132.629 

140.000 

331.574 

160.000 

140.000 

119.000 

180.000 

140.000 

119.000 

200.000 

140,000 

119.000 

227.371 

140.000 

568.426 

180.000 

152.146 

.000 

Factor  of  Safety  =    1.603 


SURFACE  #   4 

Coordinate    X 

Coordinate    Y 

Coordinate    Z 

180.000 

40.307 

.000 

148.097 

60.000 

370.244 

160.000 

60.000 

84.276 

180.000 

60.000 

82.207 

200.000 

60.000 

84.276 

211.903 

60.000 

529.756 

121.131 

80.000 

302.828 

130.000 

80.000 

84.292 

160.000 

80.000 

80.698 

180.000 

80.000 

79.154 

200.000 

80.000 

80.698 

230.000 

80.000 

84.292 

238.869 

80.000 

597.172 

113.743 

100.000 

284.358 

120.000 

100.000 

101.000 

130.000 

100.000 

104.000 

160.000 

100.000 

93.758 

180.000 

100.000 

87.428 

200.000 

100.000 

93.758 

230.000 

100.000 

104.000 

240.000 

100.000 

101.000 

246.257 

100.000 

615.642 

117.008 

120.000 

292.519 

120.000 

120.000 

104.000 

130.000 

120.000 

109.000 

160.000 

120.000 

109.000 

180.000 

120.000 

103.140 

200.000 

120.000 

109.000 

230.000 

120.000 

109.000 

240.000 

120.000 

104.000 

242.992 

120.000 

607.481 

119.850 

130.000 

299.626 

120.000 

130.000 

109.000 

130.000 

130.000 

114.000 

160.000 

130.000 

114.000 

180.000 

130.000 

114.000 

200.000 

130.000 

114.000 

230.000 

130.000 

114.000 

240.000 

130.000 

109.000 

240.150 

130.000 

600.374 

132.629 

140.000 

331.574 

160.000 

140.000 

119.000 

180.000 

140.000 

119.000 

103 


200.000 

140.000 

119.000 

227.371 

140.000 

568.426 

180.000 

152.146 

.000 

Factor  of  Safely  = 

1.603 

SURFACE  i 


Coordinate    X 

Coordinate     Y 

Coordinate    Z 

180.000 

40.370 

.000 

138.225 

60.000 

345.562 

160.000 

60.000 

95.803 

180.000 

60.000 

95.549 

200.000 

60.000 

95.803 

221.775 

60.000 

554.438 

125.056 

80.000 

312.640 

130.000 

80.000 

84.907 

160.000 

80.000 

82.613 

180.000 

80.000 

82.346 

200.000 

80.000 

82.613 

230.000 

80.000 

84.907 

234.944 

80.000 

587.360 

114.484 

100.000 

286.209 

120.000 

100.000 

101.000 

130.000 

100.000 

104.000 

160.000 

100.000 

92.738 

180.000 

100.000 

84.590 

200.000 

100.000 

92.738 

230.000 

100.000 

104.000 

240.000 

100.000 

101.000 

245.516 

100.000 

613.791 

116.914 

120.000 

292.284 

120.000 

120.000 

104.000 

130.000 

120.000 

108.457 

160.000 

120.000 

104.945 

180.000 

120.000 

103.570 

200.000 

120.000 

104.945 

230.000 

120.000 

108.457 

240.000 

120.000 

104.000 

243.086 

120.000 

607.716 

118.573 

130.000 

296.433 

120.000 

130.000 

109.000 

130.000 

130.000 

114.000 

160.000 

130.000 

114.000 

180.000 

130.000 

114.000 

200.000 

130.000 

114.000 

230.000 

130.000 

114.000 

240.000 

130.000 

109.000 

241.427 

130.000 

603.567 

180.000 

137.337 

.000 

Factor  of  Safety  = 

1.819 

SURFACE #   6 

104 


Coordinate     X 

Coordinate    Y 

Coordinate     Z 

180.000 

40.370 

.000 

138.225 

60.000 

345.562 

160.000 

60.000 

95.803 

180.000 

60.000 

95.549 

200.000 

60.000 

95.803 

221.775 

60.000 

554.438 

125.056 

80.000 

312.640 

130.000 

80.000 

84.907 

160.000 

80.000 

82.613 

180.000 

80.000 

82.346 

200.000 

80.000 

82.613 

230.000 

80.000 

84.907 

234.944 

80.000 

587.360 

114.484 

100.000 

286.209 

120.000 

100.000 

101.000 

130.000 

100.000 

104.000 

160.000 

100.000 

92.738 

180.000 

100.000 

84.590 

200.000 

100.000 

92.738 

230.000 

100.000 

104.000 

240.000 

100.000 

101.000 

245.516 

100.000 

613,791 

116.914 

120.000 

292.284 

120.000 

120,000 

104.000 

130.000 

120.000 

108.457 

160.000 

120.000 

104.945 

180.000 

120.000 

103.570 

200.000 

120.000 

104.945 

230.000 

120.000 

108.457 

240.000 

120.000 

104.000 

243.086 

120.000 

607.716 

118.573 

130.000 

296,433 

120.000 

130.000 

109,000 

130.000 

130.000 

114,000 

160.000 

130.000 

114.000 

180.000 

130.000 

114,000 

200.000 

130.000 

114,000 

230.000 

130.000 

114,000 

240.000 

130.000 

109,000 

241.427 

130.000 

603,567 

180,000 

137.337 

.000 

Factor  of  Safety  = 

1.819 

SURFACE  #   7 

Coordinate     X 

Coordinate     Y 

Coordinate     Z 

180.000 

40.370 

,000 

138.225 

60.000 

345,562 

160.000 

60.000 

95,803 

180.000 

60.000 

95,549 

200.000 

60.000 

95,803 

221.775 

60.000 

554,438 

125.056 

80.000 

312,640 

105 


130.000 

80.000 

84.907 

160.000 

80.000 

82.613 

180.000 

80.000 

82.346 

200.000 

80.000 

82.613 

230.000 

80.000 

84.907 

234.944 

80.000 

587.360 

114.484 

100.000 

286.209 

120.000 

100.000 

101.000 

130.000 

100.000 

104.000 

160.000 

100.000 

92.738 

180.000 

100.000 

84.590 

200.000 

100.000 

92.738 

230.000 

100.000 

104.000 

240.000 

100.000 

101.000 

245.516 

100.000 

613.791 

116.914 

120.000 

292.284 

120.000 

120.000 

104.000 

130.000 

120.000 

108.457 

160.000 

120.000 

104.945 

180.000 

120.000 

103.570 

200.000 

120.000 

104.945 

230.000 

120.000 

108.457 

240.000 

120.000 

104.000 

243.086 

120.000 

607.716 

118.573 

130.000 

296.433 

120.000 

130.000 

109.000 

130.000 

130.000 

114.000 

160.000 

130.000 

114.000 

180.000 

130.000 

114.000 

200.000 

130.000 

114.000 

230.000 

130.000 

114.000 

240.000 

130.000 

109.000 

241.427 

130.000 

603.567 

180.000 

137.337 

.000 

Factor  of  Safety  = 

1.819 

SURFACE*   8 

Coordinate     X 

Coordinate     Y 

Coordinate    Z 

180.000 

40.370 

.000 

138.225 

60.000 

345.562 

160.000 

60.000 

95.803 

180.000 

60.000 

95.549 

200.000 

60.000 

95.803 

221.775 

60.000 

554.438 

125.056 

80.000 

312.640 

130.000 

80.000 

84.907 

160.000 

80.000 

82.613 

180.000 

80.000 

82.346 

200.000 

80.000 

82.613 

230.000 

80.000 

84.907 

234.944 

80.000 

587.360 

114.484 

100.000 

286.209 

120.000 

100.000 

101.000 

130.000 

100.000 

104.000 

106 


160.000 

100.000 

92.738      ■ 

180.000 

100.000 

84.590 

200.000 

100.000 

92.738 

230.000 

100.000 

104.000 

240.000 

100.000 

101.000 

245.516 

100.000 

613.791 

116.914 

120.000 

292.284 

120.000 

120.000 

104.000 

130.000 

120.000 

108.457 

160.000 

,120.000 

104.945 

180.000 

120.000 

103.570 

200.000 

120.000 

104.945 

230.000 

120.000 

108.457 

240.000 

120.000 

104.000 

243.086 

120.000 

607.716 

118.573 

130.000 

296.433 

120.000 

130.000 

109.000 

130.000 

130.000 

114.000 

160.000 

130.000 

114.000 

180.000 

130.000 

114.000 

200.000 

130.000 

114.000 

230.000 

130.000 

114.000 

240.000 

130.000 

109.000 

241.427 

130.000 

603.567 

180.000 

137.337 

.000 

Factor  of  Safety  = 

1.819 

SURFACE*    9 

Coordinate     X 

Coordinate     Y 

Coordinate    Z 

180.000 

40.370 

.000 

138.225 

60.000 

345.562 

160.000 

60.000 

95.803 

180.000 

60.000 

95.549 

200.000 

60.000 

95.803 

221.775 

60.000 

554.438 

125.056 

80.000 

312.640 

130.000 

80.000 

84.907 

160.000 

80.000 

82.613 

180.000 

80.000 

82.346 

200.000 

80.000 

82.613 

230.000 

80.000 

84.907 

234.944 

80.000 

587.360 

114.484 

100.000 

286.209 

120.000 

100.000 

101.000 

130.000 

100.000 

104.000 

160.000 

100.000 

92.738 

180.000 

100.000 

84.590 

200.000 

100.000 

92.738 

230.000 

100.000 

104.000 

240.000 

100.000 

101.000 

245.516 

100.000 

613.791 

116.914 

120.000 

292.284 

120.000 

120.000 

104.000 

130.000 

120.000 

108.457 

107 


160.0OO 

120.000 

104.945 

180.000 

120.000 

103.570 

200.000 

120.000 

104.945 

230.000 

120.000 

108.457 

240.000 

120.000 

104.000 

243.086 

120.000 

607.716 

118.573 

130.000 

296.433 

120.000 

130.000 

109.000 

130.000 

130.000 

114.000 

160.000 

130.000 

114.000 

180.000 

130.000 

114.000 

200.000 

130.000 

114.000 

230.000 

130.000 

114.000 

240.000 

130.000 

109.000 

241.427 

130.000 

603.567 

180.000 

137.337 

.000 

Factor  of  Safety  = 

1.819 

SURFACE  #  10 

Coordinate     X 

Coordinate     Y 

Coordinate     Z 

180.000 

46.742 

.000 

153.769 

60.000 

384.422 

160.000 

60.000 

94.802 

180.000 

60.000 

91.850 

200.000 

60.000 

94.802 

206.231 

60.000 

515.578 

125.274 

80.000 

313.185 

130.000 

80.000 

90.641 

160.000 

80.000 

83.934 

180.000 

80.000 

83.876 

200.000 

80.000 

83.934 

230.000 

80.000 

90.641 

234.726 

80.000 

586.815 

117.769 

100.000 

294.422 

120.000 

100.000 

101.000 

130.000 

100.000 

101.471 

160.000 

100.000 

88.691 

180.000 

100.000 

87.211 

200.000 

100.000 

88.691 

230.000 

100.000 

101.471 

240.000 

100.000 

101.000 

242.231 

100.000 

605.578 

118.093 

120.000 

295.233 

120.000 

120.000 

104.000 

130.000 

120.000 

107.775 

160.000 

120.000 

103.387 

180.000 

120.000 

103.381 

200.000 

120.000 

103.387 

230.000 

120.000 

107.775 

240.000 

120.000 

104.000 

241.907 

120.000 

604  767 

119.407 

130.000 

298.518 

120.000 

130,000 

109.000 

130.000 

130.000 

114.000 

108 


160.000 

130.000 

114.000 

180.000 

130.000 

111.598 

200.000 

130.000 

114.000 

230.000 

130.000 

114.000 

240.000 

130.000 

109.000 

240.593 

130.000 

601.482 

129.127 

140.000 

322.818 

130.000 

140.000 

119.000 

160.000 

140.000 

119.000 

180.000 

140.000 

119.000 

200.000 

140.000 

119.000 

230.000 

140.000 

119.000 

230.873 

140.000 

577.182 

140.000 

160.000 

350.000 

160.000 

160.000 

124.000 

180.000 

160.000 

124.000 

200.000 

160.000 

124.000 

220.000 

160.000 

550,000 

180.000 

160.653 

.000 

ictor  of  Safety  = 

1.923 

109 


Example  4 


Geometry  of  the  Example  4  is  shown  on  Figure  B4.    The  following 
soil  parameters  were  used: 
Unit  weight  of  soil      110  pcf 
Cohesion  100  psf 

Friction  angle  28  deg  . 
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Figure  B4       Illustartion  for  Example  4 
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PC-STABUD  • 

3-DIMENSIOANL  SLOPE  STABILITY  PROGRAM 
FROM  PURDUE  UNIVERSITY  • 

VERSION  2.1  ♦ 


Number  of  X  coordinates  :  15 
Number  of  Y  coordinates  ;  13 
Number  of  soils  :      1 


X  COORDINATES 


coordinate  X(    1)  = 

40.00 

coordinate  X(   2)  = 

60.00 

coordinate  X(  3)  = 

80.00 

coordinate  X(  4)  = 

100.00 

coordinate  X(   5)  = 

120.00 

coordinate  X(   6)  = 

130.00 

coordinate  X(   7)  = 

160.00 

coordinate  X(   8)  = 

180.00 

coordinate  X(   9)  = 

200.00 

coordinate  X(  10)  = 

230.00 

coordinate  X(  1 1)  = 

240.00 

coordinate  X(  12)  = 

260.00 

coordinate  X(  13)  = 

280.00 

coordinate  X(  14)  = 

300.00 

coordinate  X(  15)  = 

320.00 

Y  COORDINATES 


coordinate  Y(    1)  = 

.00 

coordinate  Y(   2)  = 

20.00 

coordinate  Y(   3)  = 

40.00 

coordinate  Y(   4)  = 

60.00 

coordinate  Y(    5)  = 

80.00 

coordinate  Y(   6)  = 

100.00 

coordinate  Y(    7)  = 

120.00 

coordinate  Y(  8)  = 

130.00 

coordinate  Y(  9)  = 

140.00 

coordinate  Y(  10)  = 

160.00 

coordinate  Y(  1 1)  = 

180.00 

coordinate  Y(  12)  = 

200.00 

coordinate  Y(  13)  = 

230.00 

COORDINATES  Z  FOR  SOIL  tt    1 

Z(l,  1)=  100.00   Z(l,2)=  100.00   Z(l,3)=  100.00 


Z  (I,  4)  = 

106.67 

Z(l,5)  = 

113.33 

Z(  1,6)  = 

120.00 

Z(l,7)  = 

126.67 

Z(l,8)  = 

130.00 

Z(l,9)  = 

130.00 

Z(  1,10)  = 

130.00 

Z(l,ll)  = 

130.00 

Z(1,I2)  = 

130.00 

Z(  1,13)  = 

130.00 

Z  (  2,  1)  = 

100.00 

Z  (  2,  2)  = 

100.00 

Z  (  2,  3)  = 

100.00 

Z  (  2,  4)  = 

106.67 

Z  (  2,  5)  = 

113.33 

Z  (  2,  6)  = 

120.00 

Z  (  2,  7)  = 

126.67 

Z  (  2,  8)  = 

130.00 

Z  (  2,  9)  = 

130.00 

Z(2,10)  = 

130.00 

Z(2,ll)  = 

130.00 

Z(2,12)  = 

130.00 

Z(2,13)  = 

130.00 

Z(3,  1)  = 

100.00 

Z(3,2)  = 

100.00 

Z(3,3)  = 

100.00 

Z  (  3,  4)  = 

106.67 
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Z(3,5)  = 

113.33 

Z  (  3,  6)  = 

120.00 

Z(3,  7)  = 

126.67 

Z  (  3.  8)  = 

130.00 

Z  (  3,  9)  = 

130.00 

Z(3,10)  = 

130.00 

Z(3,ll)  = 

130.00 

Z(3,12)  = 

130.00 

Z(3,13)  = 

130.00 

Z  (  4,  1)  = 

100.00 

Z  (  4,  2)  = 

100.00 

Z  (  4,  3)  = 

100.00 

Z  (  4,  4)  = 

106.67 

Z  (  4,  5)  = 

113.33 

Z  (  4,  6)  = 

120.00 

Z  (  4,  7)  = 

126.67 

Z  (  4,  8)  = 

130.00 

Z  (  4,  9)  = 

130.00 

Z(4,10)  = 

130.00 

Z(4,ll)  = 

130.00 

Z(4,12)  = 

130.00 

Z(4,13)  = 

130.00 

Z(5,  1)  = 

100.00 

Z  (  5,  2)  = 

100.00 

Z(5,3)  = 

100.00 

Z  (  5,  4)  = 

106.67 

Z  (  5,  5)  = 

113.33 

Z  (  5,  6)  = 

120.00 

Z(5,  7)  = 

126.67 

Z  (  5,  8)  = 

130.00 

Z  (  5.  9)  = 

130.00 

Z(5,10)  = 

130.00 

Z(5,ll)  = 

130.00 

Z  (  5,12)  = 

130.00 

Z(5,13)  = 

130.00 

Z  (  6,  1)  = 

100.00 

Z  (  6,  2)  = 

100.00 

Z  (  6,  3)  = 

100.00 

Z  (  6,  4)  = 

106.67 

Z  (  6,  5)  = 

113.33 

Z  (  6,  6)  = 

120.00 

Z(6,7)  = 

126.67 

Z  (  6,  8)  = 

130.00 

Z  (  6,  9)  = 

130.00 

Z  ( 6,10)  = 

130.00 

Z(6,ll)  = 

130.00 

Z(6,12)  = 

130.00 

Z(6,13)  = 

130.00 

Z(7,  1)  = 

100.00 

Z  (  7,  2)  = 

100.00 

Z  ( 7,  3)  = 

100.00 

Z  (  7,  4)  = 

106.67 

Z  (  7,  5)  = 

113.33 

Z  (  7,  6)  = 

120.00 

Z  (  7,  7)  = 

126.67 

Z  (  7,  8)  = 

130.00 

Z  (  7.  9)  = 

130.00 

Z  (  7,10)  = 

130.00 

Z(7,ll)  = 

130.00 

Z(7,12)  = 

130.00 

Z  (  7,13)  = 

130.00 

Z  (  8,  1)  = 

100.00 

Z  (  8,  2)  = 

100.00 

Z  (  8,  3)  = 

100.00 

Z  (  8,  4)  = 

106.67 

Z  (  8,  5)  = 

113.33 

Z  (  8,  6)  = 

120.00 

Z(8,  7)  = 

126.67 

Z  (  8,  8)  = 

130.00 

Z  (  8,  9)  = 

130.00 

Z  (  8,10)  = 

130.00 

Z(8,ll)  = 

130.00 

Z(8,12)  = 

130.00 

Z(8,13)  = 

130.00 

Z(9,  I)  = 

100.00 

Z  (  9,  2)  = 

100.00 

Z  (  9,  3)  = 

100.00 

Z  (  9,  4)  = 

106.67 

Z  (  9,  5)  = 

113.33 

Z  (  9,  6)  = 

120.00 

Z  (  9,  7)  = 

126.67 

Z  (  9,  8)  = 

130.00 

Z  (  9,  9)  = 

130.00 

Z  (  9,10)  = 

130.00 

Z(9,ll)  = 

130.00 

Z  (  9,12)  = 

130.00 

Z(9,13)  = 

130.00 

Z  (10,  1)  = 

100.00 

Z  (10,  2)  = 

100.00 

Z  (10,  3)  = 

100.00 

Z  (10,  4)  = 

106.67 

Z  (10,  5)  = 

113.33 

Z  (10,  6)  = 

120.00 

Z(10,7)  = 

126.67 

Z  (10,  8)  = 

130.00 

Z  (10,  9)  = 

130.00 

Z  (10,10)  = 

130.00 

Z  (10,11)  = 

130.00 

Z  (10,12)  = 

=    130.00 

Z  (10,13)  = 

130.00 

Z(ll,  1)  = 

100.00 

Z(ll,2)  = 

100.00 

Z(ll,3)  = 

100.00 

Z(ll,4)  = 

106.67 

Z(11.5)  = 

113.33 

Z(ll,6)  = 

120.00 

Z(1I,7)  = 

126.67 

Z(ll,8)  = 

130.00 

Z(ll,9)  = 

130.00 

Z  (11,10)  = 

130.00 

Z(U,11)  = 

130.00 

Z  (11,12)  = 

130.00 

Z  (11,13)  = 

130.00 

Z(12,  1)  = 

100.00 

Z  (12,  2)  = 

100.00 

Z  (12,  3)  = 

100.00 

Z  (12,  4)  = 

106.67 

Z(12,  5)  = 

113.33 

Z(12,6)  = 

120.00 

Z(12,7)  = 

126.67 

Z  (12,  8)  = 

130.00 

Z  (12,  9)  = 

130.00 

Z  (12,10)  = 

130.00 

Z  (12,11)  = 

130.00 

Z  (12,12)  = 

130.00 

Z  (12,13)  = 

=    130.00 

Z(13,  1)  = 

100.00 

Z  (13,  2)  = 

100.00 

Z(13,3)  = 

100.00 

Z(13,4)  = 

106.67 

Z  (13,  5)  = 

113.33 

Z  (13,  6)  = 

120.00 

Z(13,7)  = 

126.67 

Z  (13,  8)  = 

130.00 

Z(13,9)  = 

130.00 

Z  (13,10)  = 

130.00 

Z  (13,11)  = 

130.00 

Z  (13,12)  = 

=    130.00 

Z  (13,13)  = 

130.00 

Z(14,  1)  = 

100.00 

Z  (14,  2)  = 

100.00 

Z  (14,  3)  = 

100.00 

Z  (14,  4)  = 

106.67 

Z(14,  5)  = 

113.33 

Z  (14,  6)  = 

120.00 

Z(14,  7)  = 

126.67 

Z  (14,  8)  = 

130.00 

Z  (14,  9)  = 

130.00 

Z  (14,10)  = 

130.00 

Z  (14,11)  = 

130.00 

Z  (14,12)  = 

130.00 

Z  (14,13)  = 

130.00 

Z(15,  1)  = 

100.00 

Z(15,2)  = 

100.00 

Z(15,3)  = 

100.00 

Z  (15,  4)  = 

106.67 

Z(I5,5)  = 

113.33 

Z(15,6)  = 

120.00 

Z(15,7)  = 

126.67 

Z(15,8)  = 

130.00 

Z(15,9)  = 

130.00 

Z  (15,10)  = 

130.00 

Z  (15,11)  = 

130.00 

Z  (15,12)  = 

130.00 

Z  (15,13)  = 

130.00 

BOUNDARIES  FOR  GENERATION  IN  THE  Y  DIRECTION 
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Main  Axis  of  Sliding  was  sublished  at  X  =    180.00 

Minimum  point  for  initiation  of  polygonals  at  Y  =     20.00 
Interval  for  initiation  of  polygonals  is  =     40.00 
Minimum  point  for  termination  of  polygonals  at  Y  =    1 10.00 
Interval  for  termination  of  polygonals  is  =     60.00 

BOUNDARIES  FOR  GENERATION  IN  THE  X  DIRECTION  : 


Coordinate  Y  =        .00 

Minimum  point  for  initiation  of  polygonals  at  X  =    120.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =   200.00 

Interval  for  termination  of  polygonals  is  =     40.00 


Coordinate  Y  =     20.00 

Minimum  point  for  initiation  of  polygonals  at  X  =    120.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =    200.00 

Interval  for  termination  of  polygonals  is  =     40.00 


Coordinate  Y  =     40.00 

Minimum  point  for  initiation  of  polygonals  at  X  =    120.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =    200.00 

Interval  for  termination  of  polygonals  is  =     40.00 


Coordinate  Y  =     60.00 

Minimum  point  for  initiation  of  polygonals  at  X  =    100.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =    220.00 

Interval  for  termination  of  polygonals  is  =     40.00 


Coordinate  Y  =     80.00 

Minimum  point  for  initiation  of  polygonals  at  X  =    100.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =   220.00 

Interval  for  termination  of  polygonals  is  =     40.00 


Coordinate  Y  =    100.00 

Minimum  point  for  initiation  of  polygonals  at  X  =    100.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =    220.00 

Interval  for  termination  of  polygonals  is  =     40.00 


Coordinate  Y  =    120.00 

Minimum  point  for  initiation  of  polygonals  at  X  =    100.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =   220.00 

Interval  for  termination  of  polygonals  is  =     40.00 
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Coordinate  Y  =    130.00 

Minimum  point  for  initiation  of  polygonals  at  X  =    100.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =   220.00 

Interval  for  termination  of  polygonals  is  =     40.00 


Coordinate  Y  =    140.00 

Minimum  point  for  initiation  of  polygonals  at  X  =    100.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =   220.00 

Interval  for  termination  of  polygonals  is  =     40.00 


Coordinate  Y  =    160.00 

Minimum  point  for  initiation  of  polygonals  at  X  =    120.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =    200.00 

Interval  for  termination  of  polygonals  is  =     40.00 


Coordinate  Y  =    180.00 

Minimum  point  for  initiation  of  polygonals  at  X  =    120.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =    200.00 

Interval  for  termination  of  polygonals  is  =     40.00 


Coordinate  Y  =    200.00 

Minimum  point  for  initiation  of  polygonals  at  X  =    120.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =    200.00 

Interval  for  termination  of  polygonals  is  =     40.00 


Coordinate  Y  =   230.00 

Minimum  point  for  initiation  of  polygonals  at  X  =    120.00 

Interval  for  initiation  of  polygonals  is  =     40.00 

Minimum  point  for  termination  of  polygonals  at  X  =    200.00 

Interval  for  termination  of  polygonals  is  =     40.00 


BOUNDARIES  FOR  GENERATION  IN  THE  Z  DIRECTION 


Zmin(  1,1)  = 

79.00 

DeluZ(  1,  1)  = 

20.00 

Zmin(  1,2)  = 

79.00 

Delta  Z(  1,2)  = 

20.00 

Zmin(  1,3)  = 

79.00 

Delta  Z(  1,3)  = 

20.00 

Zmin(  1,4)  = 

79.00 

Delu  Z(  1,  4)  = 

25.00 

Zmin(  1,5)  = 

79.00 

Delta  Z(  1 ,  5)  = 

30.00 

Zmin(  1,6)  = 

79.00 

Delta  Z(  1,6)  = 

35.00 

Zmin(  1,7)  = 

79.00 

Delta  Z(  1 ,  7)  = 

40.00 

Zmin(  1,8)  = 

79.00 

Delta  Z(  1 ,  8)  = 

45.00 

Zmin(  I,  9)  = 

79.00 

Delta  Z(  1 ,  9)  = 

45.00 

Zmin(  1,10)  = 

79.00 

Delta  Z{  1,10)  = 

45.00 

Zmin(  1,11)  = 

79.00 

Delta  Z{  1,11)  = 

45.00 

Zmin(  1,12)  = 

79.00 

Delta  Z(  1,12)  = 

45.00 

Zmin(  1,13)  = 

79.00 

Delta  Z(  1,13)  = 

45.00 
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Zinin(  2 
Zinin(  2 
Znun(  2 
Zmui(  2 
Zinin(  2 
Zmin(  2, 
Zmin(  2 
Zmin{  2 
Z[nin(  2 
ZminC  2 
Zmin(  2 
Zmin(  2 
Zinin(  2 
Zmin(  3 
Zinin(  3 
Zniin(  3 
Zmin(  3 
Zinin(  3 
Zmin(  3 
Zmin(  3 
ZminC  3 
Zmin(  3 
Zmin(  3 
Zmin(  3 
Zmin(  3 
Znun(  3 
ZminC  4 
Zmin(  4 
Zmin(  4 
Zinin(  4 
Zmin(  4 
ZminC  4 
Zmin(  4 
Zmin(  4 
Z[nin(  4 
Ztnin(  4 
Zmin(  4 
Zmin(  4 
Zmin(  4 
Zmin(  5 
Zmin(  5 
Zrain(  5 
Zmin(  5 
Zmin(  5 
Zmin(  5 
Zmin(  5 
Zinin(  5 
Zinin(  5 
Znun(  5 
Zniin(  5 
Zmin(  5 
Zmin(  5 
Zmin(  6 
Zmin(  6 
Zmin(  6 
ZminC  6 
Zmin(  6 
Zmin(  6, 


9) 
10) 

11) 
12) 
13) 
1) 
2) 
3) 
4) 
5) 
6) 
7) 
8) 
9) 
10) 
11) 
12) 
13) 
1) 
2) 
3) 
4) 
5) 
6) 
7) 
8) 
9) 
10) 
11) 
12) 
13) 
1) 
2) 
3) 
4) 
5) 
6) 


79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 


Delia  Zi 
Delta  Z 
Delta  Z 
Delta  Z 
Delta  Z 
Delta  Z< 
DelU  Z: 
DelU  Z 
DelU  Z( 
Delta  Z 
Delta  Z 
DelU  Z 
DelU  Z 
DelU  Zi 
DelU  Zi 
DelU  Z( 
DelU  Z( 
DelU  Z( 
DelU  Zi 
DelU  Zi 
DelU  Zi 
DelU  Zi 
DelU  Zi 
DelU  Zi 
DelU  Zi 
DelU  Zi 
DelU  Z 
DelU  Zi 
DelU  Zi 
DelU  Zi 
DelU  Z 
DelU  Z 
DelU  Z 
DelU  Z 
DelU  Z 
DelU  Zi 
DelU  Zi 
DelU  Zi 
DelU  Zi 
DelU  Zi 
DelU  Zi 
DelU  Zi 
DelU  Zi 
DelU  Zi 
DelU  Zi 
DelU  Zi 
DelU  Zi 
DelU  Zi 
DelU  Z 
DelU  Z 
DelU  Z 
DelU  Zi 
DelU  Zi 
DelU  Zi 
DelU  Zi 
DelU  Zi 
DelU  Z 
DelU  Zi 


1)  = 

20.00 

2)  = 

20.00 

3)  = 

20.00 

4)  = 

25.00 

5)  = 

30.00 

6)  = 

35.00 

7)  = 

40.00 

8)  = 

45.00 

9)  = 

45.00 

10)  = 

45.00 

11)  = 

45.00 

12)  = 

45.00 

13)  = 

45.00 

1)  = 

20.00 

2)  = 

20.00 

3)  = 

20.00 

4)  = 

25.00 

5)  = 

30.00 

6)  = 

35.00 

7)  = 

40.00 

8)  = 

45.00 

9)  = 

45.00 

10)  = 

45.00 

11)  = 

45.00 

12)  = 

45.00 

13)  = 

45.00 

1)  = 

20.00 

2)  = 

20.00 

3)  = 

20.00 

4)  = 

25.00 

5)  = 

30.00 

6)  = 

35.00 

7)  = 

40.00 

8)  = 

45.00 

9)  = 

45.00 

10)  = 

45.00 

11)  = 

45.00 

12)  = 

45.00 

13)  = 

45.00 

1)  = 

20.00 

2)  = 

20.00 

3)  = 

20.00 

4)  = 

25.00 

5)  = 

30.00 

6)  = 

35.00 

7)  = 

40.00 

8)  = 

45.00 

9)  = 

45.00 

10)  = 

45.00 

11)  = 

45.00 

12)  = 

45.00 

13)  = 

45.00 

1)  = 

20.00 

2)  = 

20.00 

3)  = 

20.00 

4)  = 

25.00 

5)  = 

30.00 

6)  = 

35.00 
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Zmin(  6 
Zmin( 
Zmin(  6 
Zmin(  6 
Zmm(  6 
Zmin(  6 
Zitun(  6 
Zmin(  7 
Zmin(  7 
Zrajn(  7 
Zmin(  7 
Zmin(  7 
Zmin(  7 
Zmin(  7 
Zmin(  7 
Zmin(  7 
ZminC  7 
Zmin(  7 
Zmin(  7 
Zmin(  7 
Zinin(  8 
Zinin(  S 
Z[nin(  8 
Zmin(  8 
Z[nin(  8 
Zmin(  8 
Zinin(  8 
Zniin(  8 
Zmin(  8 
Zmin(  8 
Zmin(  8 
ZiTun(  8 
Zinin(  8 
Zinin(9 
Zmin(9 
Zinin(9 
Zmin(9 
Zmin(9 
Zmin(9 
Zinin(9 
Zinin(9 
Zmin(9 
Zmin(9 
Zmin(9 
Zmin(9 
Zmin(9 
Zmin(IO 
Zrain(10 
Zmin(10 
Zmin(10 
Zmin(10 
Zmin(10 
Zmin(IO 
Zmin(10 
Zmin(10 
ZminC  10 
Zinin(10 
Zmin(10 


,7)  : 

■  8)  : 

,9): 

,10) 

■11) 

,12) 

■  13) 
.  1)  = 
,2)  = 
.3)  = 
.4)  = 
,5)  = 
,6)  = 
,7)  = 
.8)  = 
,9)  = 
,10)^ 
,11)  ■■ 
.12)  ■■ 
,13)^ 
,  1)  = 
,2)  = 
,3)  = 
,4)  = 
,5)  = 
,6)  = 
,7)  = 
,8)  = 
,9)  = 
,10)^ 
,11)  : 
,12)  ■■ 
,13)^ 
,  1)  = 
,2)  = 
,3)  = 
,4)  = 
,5)  = 
,6)  = 
,7)  = 
,8)  = 
,9)  = 
,10)  = 
,11)  = 
,12)  = 
,13)  = 
,1)  = 
,2)  = 
,3)  = 
,4)  = 
,5)  = 
,6)  = 
,7)  = 
,8)  = 
,9)  = 
.10)^ 
,11)^ 

■  12)^ 


79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 
79.00 


Delu  Z(  6,  7)  = 
Delu  Z(  6,  8)  = 
DelU  Z(  6,  9)  = 
Delta  Z(  6,10) 
Delta  Z(  6,11) 
Delta  Z(  6,12) 
Delta  Z(  6,13) 
Delu  Z(  7,  I)  = 
Delta  Z(  7,  2)  = 
Delu  Z(  7,  3)  = 
Delu  Z(  7,  4)  = 
Delu  Z(  7,  5)  = 
Delu  Z(  7,  6)  = 
Delu  Z(  7,  7)  = 
Delu  Z(  7,  8)  = 
Delu  Z(  7,  9)  = 
Delu  Z(  7,10) 
Delu  Z(  7,11) 
Delu  Z(  7,12) 
Delu  Z(  7,13) 
Delu  Z(  8,  1)  = 
Delu  Z(  8, 
Delu  Z(  8, 
Delu  Z(  8, 
Delu  Z(  8, 
Delu  Z(  8, 
Delu  Z(  8, 
Delu  Z(  8, 
Delu  Z(  8, 
Delu  Z(  8, 
Delu  Z(  8,11) 
Delu  Z(  8,12) 
Delu  Z(  8,13) 
Delu  Z(  9,  1)  - 
Delu  Z(  9,  2)  = 
Delu  Z(  9,  3)  = 
Delu  Z(  9,  4)  = 
Delu  Z(  9, 
Delu  Z(  9, 
Delu  Z(  9, 
Delu  Z(  9, 
Delu  Z(  9, 
Delu  Z(9,10)  = 
Delu  Z(  9,11)  = 
Delu  Z(9,12)  = 
Delu  Z(  9,13)  = 
Delu  Z(10,  1)  = 
Delu  Z(10,  2)  = 
Delu  Z(10,  3)  = 
Delu  Z(10,  4)  = 
Delu  Z(10,  5)  = 
Delu  Z(IO,  6)  = 
Delu  Z(10,  7)  = 
Delu  Z(10,  8)  = 
Delu  Z(10,  9)  = 
DeluZ(10,10) 
Delu  Z(10,ll) 
Delu  Z(10,12) 


,2)  = 
.3)  = 
,4)  = 
.5)  = 
,6)  = 
,7)  = 
,8)  = 
,9)  = 
,10) 


.5) 
,6) 
,7) 
,8) 
,9) 


40.00 
45.00 
45.00 
45.00 
45.00 
45.00 
45.00 
20.00 
20.00 
20.00 
25.00 
30.00 
35.00 
40.00 
45.00 
45.00 
45.00 
45.00 
45.00 
45.00 
20.00 
20.00 
20.00 
25.00 
30.00 
35.00 
40.00 
45.00 
45.00 
45.00 
45.00 
45.00 
45.00 
20.00 
20.00 
20.00 
25.00 
30.00 
35.00 
40.00 
45.00 
45.00 
45.00 
45.00 
45.00 
45.00 
20.00 
20.00 
20.00 
25.00 
30.00 
35.00 
40.00 
45.00 
45.00 
45.00 
45.00 
45.00 
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Zmin( 

10,13)  = 

79.00 

Delta  Z(10, 13)  = 

45.00 

ZiTun( 

11,  1)  = 

79.00 

Delta  Z(ll,  1)  = 

20.00 

Zmin( 

11,2)  = 

79.00 

Delta  Z(l  1,2)  = 

20.00 

Zmin( 

11,3)  = 

79.00 

Delta  Z(l  1,3)  = 

20.00 

Zmin( 

11,4)  = 

79.00 

Delu2(ll,4)  = 

25.00 

Zmin( 

11.5)  = 

79.00 

Delta  Z(l  1,5)  = 

30.00 

Zmin( 

11,6)  = 

79.00 

DeluZ(ll,6)  = 

35.00 

Zmin( 

11,7)  = 

79.00 

DeluZ(ll,7)  = 

40.00 

Zmin( 

11,8)  = 

79.00 

DeluZ(ll,8)  = 

45.00 

Ztnin( 

11,9)  = 

79.00 

Delta  Z(l  1,9)  = 

45.00 

Zmin( 

11,10)  = 

79.00 

Delta  Z(l  1,10)  = 

45.00 

Zmin( 

11,11)  = 

79.00 

Delta  Z(l  1,11)  = 

45.00 

Zmin( 

11,12)  = 

79.00 

DeluZ(ll,12)  = 

45.00 

Zinin( 

11,13)  = 

79.00 

DeluZ(ll,13)  = 

45.00 

Zmin( 

12,  1)  = 

79.00 

Delu  Z(12,  1)  = 

20.00 

Zmin( 

12,  2)  = 

79.00 

Delta  Z(12,  2)  = 

20.00 

Zmin( 

12,  3)  = 

79.00 

Delta  Z(12,  3)  = 

20.00 

Zinin( 

12,  4)  = 

79.00 

Delta  Z(12,  4)  = 

25.00 

Zmin( 

12,  5)  = 

79.00 

Delta  Z(12,  5)  = 

30.00 

Zmin( 

12,  6)  = 

79.00 

Delu  Z(12,  6)  = 

35.00 

Zmin( 

12,7)  = 

79.00 

Delu  Z(12,  7)  = 

40.00 

Zmin( 

12,  8)  = 

79.00 

Delu  Z(12,  8)  = 

45.00 

Zmin( 

12,  9)  = 

79.00 

Delu  Z(12,  9)  = 

45.00 

Zmin( 

12,10)  = 

79.00 

DeluZ(12,10)  = 

45.00 

Zinin( 

12,11)  = 

79.00 

DeluZ(12,ll)  = 

45.00 

Zmin( 

12,12)  = 

79.00 

Delu  Z(I2,12)  = 

45.00 

Zmin( 

12.13)  = 

79.00 

DeluZ(12,13)  = 

45.00 

Zmin( 

13,  1)  = 

79.00 

Delu  Z(13,  1)  = 

20.00 

Zmin( 

13,2)  = 

79.00 

DeluZ(13,2)  = 

20.00 

Zmin( 

13,3)  = 

79.00 

Delu  Z(13,  3)  = 

20.00 

Zmin( 

13,  4)  = 

79.00 

Delu  Z(13,  4)  = 

25.00 

Zmin( 

13,5)  = 

79.00 

Delu  Z(13,  5)  = 

30.00 

ZminC 

13,6)  = 

79.00 

Delu  Z(13,  6)  = 

35.00 

Zmin( 

13,7)  = 

79.00 

Delu  Z(13,  7)  = 

40.00 

Zmin( 

13,8)  = 

79.00 

Delu  Z(13,  8)  = 

45.00 

Zmin( 

13,  9)  = 

79.00 

Delu  Z(13,  9)  = 

45.00 

Zmin( 

13,10)  = 

79.00 

DeluZ(13,10)  = 

45.00 

ZminC 

13,11)  = 

79.00 

DeluZ(13,ll)  = 

45.00 

Zmin( 

13,12)  = 

79.00 

DeluZ(13,12)  = 

45.00 

Z[nin( 

13,13)  = 

79.00 

DeluZ(13,13)  = 

45.00 

Zinin( 

14,  1)  = 

79.00 

Delu  Z(14,  1)  = 

20.00 

Zinin( 

14,  2)  = 

79,00 

Delu  Z(14,  2)  = 

20.00 

Zmin( 

14,3)  = 

79.00 

Delu  Z(14,  3)  = 

20.00 

Zmin( 

14,  4)  = 

79.00 

Delu  Z(14,  4)  = 

25.00 

Zmin( 

14,5)  = 

79.00 

Delu  Z(14,  5)  = 

30.00 

Zmin( 

14,  6)  = 

79.00 

Delu  Z(14,  6)  = 

35.00 

Zmin( 

14,7)  = 

79.00 

Delu  Z(14,  7)  = 

40.00 

Zmin( 

14,  8)  = 

79.00 

Delu  Z(14,  8)  = 

45.00 

Zrain( 

14,  9)  = 

79.00 

Delu  Z(14,  9)  = 

45.00 

Zmin( 

14,10)  = 

79.00 

DeluZ(14,10)  = 

45.00 

Zniin( 

14,11)  = 

79.00 

DeluZ(14,ll)  = 

45.00 

Zinin( 

14,12)  = 

79.00 

DeluZ(14,12)  = 

45.00 

Zmin( 

14,13)  = 

79.00 

DeluZ(14,13)  = 

45.00 

Zmin( 

15,1)  = 

79.00 

Delu  Z(15,  1)  = 

20.00 

Zmin( 

15,2)  = 

79.00 

Delu  Z(15,  2)  = 

20.00 

Zmin( 

15,3)  = 

79.00 

Delu  Z(15,  3)  = 

20.00 

Zmin( 

15,4)  = 

79.00 

Delu  Z(15,  4)  = 

25.00 

Zmin( 

15,5)  = 

79.00 

Delu  Z(15,  5)  = 

30.00 
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Zmin(15,  6)  = 

79.00 

Delta  Z(15,  6)  = 

35.00 

Zinin(15,  7)  = 

79.00 

Delta  Z(15,  7)  = 

40.00 

Zmin(15,  8)  = 

79.00 

Delu  Z(15,  8)  = 

45.00 

Zinin(15,  9)  = 

79.00 

Delta  Z(15,  9)  = 

45.00 

Zmin(15,10)  = 

79.00 

Delta  Z(15,10)  = 

45.00 

Zrain(15,ll)  = 

79.00 

DeluZ(15,ll)  = 

45.00 

Zmin(15,12)  = 

79.00 

Delta  Z(15, 12)  = 

45.00 

Zmin(15,13)  = 

79.00 

Delu  Z(15,13)  = 

45.00 

SOIL  PROPERTIES  : 

Soil        Unit  Weight       Cohesion       Shear  Angle 

1  110.00  100.0  28.0 

Ru  of  soil  #    1  =    .00 

TEN  MOST  CRITICAL  SURFACES  : 


SURFACE*    1 

Coordinate     X 

Coordinate     Y 

Coordinate     Z 

180.000 

40.370 

.000 

138.225 

60.000 

345.562 

160.000 

60.000 

95.803 

180.000 

60.000 

95.549 

200.000 

60.000 

95.803 

221.775 

60.000 

554.438 

125.056 

80.000 

312.640 

130.000 

80.000 

84.907 

160.000 

80.000 

82.613 

180.000 

80.000 

82.346 

200.000 

80.000 

82.613 

230.000 

80.000 

84.907 

234.944 

80.000 

587.360 

114.484 

100.000 

305.299 

120.000 

100.000 

104.000 

130.000 

100.000 

104.000 

160.000 

100.000 

92.738 

180.000 

100.000 

84.590 

200.000 

100.000 

92.738 

230.000 

100.000 

104.000 

240.000 

100.000 

104.000 

245.516 

100.000 

654.731 

116.914 

120.000 

331.246 

120.000 

120.000 

109.000 

130.000 

120.000 

108.457 

160.000 

120.000 

104.945 

180.000 

120.000 

103.570 

200.000 

120.000 

104.945 

230.000 

120.000 

108.457 

240.000 

120.000 

109.000 

243.086 

120.000 

688.724 

119 


118.573 

130.000 

355.719 

120.000 

130.000 

114.000 

130.000 

130.000 

114.000 

160.000 

130.000 

114.000 

180.000 

130.000 

114.000 

200.000 

130.000 

114.000 

230.000 

130.000 

114.000 

240.000 

130.000 

114.000 

241.427 

130.000 

724.281 

180.000 

137.337 

.000 

Factor  of  Safety  = 

1.822 

SURFACE #   2 

Coordinate    X 

Coordinate    Y 

Coordinate    Z 

180.000 

43.397 

.000 

150.678 

60.000 

376.696 

160.000 

60.000 

88.254 

180.000 

60.000 

86.833 

200.000 

60.000 

88.254 

209.322 

60.000 

523.304 

122.693 

80.000 

306.733 

130.000 

80.000 

97.993 

160.000 

80.000 

83.627 

180.000 

80.000 

82.713 

200.000 

80.000 

83.627 

230.000 

80.000 

97.993 

237.307 

80,000 

593.267 

114.992 

100.000 

306.656 

120.000 

100.000 

99.357 

130.000 

100.000 

89.323 

160.000 

100.000 

88.130 

180.000 

100.000 

87.966 

200.000 

100.000 

88.130 

230.000 

100.000 

89.323 

240.000 

100.000 

99.357 

245.008 

100.000 

653.374 

116.531 

120.000 

330.162 

120.000 

120.000 

109.000 

130.000 

120.000 

109.000 

160.000 

120.000 

107.418 

180.000 

120.000 

102.401 

200.000 

120.000 

107.418 

230.000 

120.000 

109.000 

240.000 

120.000 

109.000 

243.469 

120.000 

689.808 

118.355 

130.000 

355.065 

120.000 

130.000 

114.000 

130.000 

130.000 

114.000 

160.000 

130.000 

112.261 

180.000 

130.000 

112.238 

200.000 

130.000 

112.261 

230.000 

130.000 

114.000 

240.000 

130.000 

114.000 

241.645 

130.000 

724.935 

120 


128.958 

140.000 

408.377 

130.000 

140.000 

119.000 

160.000 

140.000 

119.000 

180.000 

140.000 

119.000 

200.000 

140.000 

119.000 

230.000 

140.000 

119.000 

231.042 

140.000 

731.653 

180.000 

156.018 

.000 

Factor  of  Safety  = 

1.946 

SURFACE  I 


Coordinate    X 

Coordinate    Y 

Coordinate     Z 

180.000 

43.397 

.000 

150.678 

60.000 

376.696 

160.000 

60.000 

88.254 

180.000 

60.000 

86.833 

200.000 

60.000 

88.254 

209.322 

60.000 

523.304 

122.693 

80.000 

306.733 

130.000 

80.000 

97.993 

160.000 

80.000 

83.627 

180.000 

80.000 

82.713 

200.000 

80.000 

83.627 

230.000 

80.000 

97.993 

237.307 

80.000 

593.267 

114.992 

100.000 

306.656 

120.000 

100.000 

99.357 

130.000 

100.000 

89.323 

160.000 

100.000 

88.130 

180.000 

100.000 

87.966 

200.000 

100.000 

88.130 

230.000 

100.000 

89.323 

240.000 

100.000 

99.357 

245.008 

100.000 

653.374 

116.531 

120.000 

330.162 

120.000 

120.000 

109.000 

130.000 

120.000 

109.000 

160.000 

120.000 

107.418 

180.000 

120.000 

102.401 

200.000 

120.000 

107.418 

230.000 

120.000 

109.000 

240.000 

120.000 

109.000 

243.469 

120.000 

689.808 

118.355 

130.000 

355.065 

120.000 

130.000 

114.000 

130.000 

130.000 

114.000 

160.000 

130.000 

112.261 

180.000 

130.000 

112.238 

200.000 

130.000 

112.261 

230.000 

130.000 

114.000 

240.000 

130.000 

114.000 

241.645 

130.000 

724.935 

128.958 

140.000 

408.377 

130.000 

140.000 

119.000 
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160.000 

140.000 

119.000 

180.000 

140.000 

119.000 

200.000 

140.000 

119.000 

230.000 

140.000 

119.000 

231.042 

140.000 

731.653 

180.000 

156.018 

.000 

Factor  of  Safety  = 

1.946 

SURFACE*   4 

Coordinate     X 

Coordinate    Y 

Coordinate     Z 

180.000 

43.397 

.000 

150.678 

60.000 

376.696 

160.000 

60.000 

88.254 

180.000 

60.000 

86.833 

200.000 

60.000 

88.254 

209.322 

60.000 

523.304 

122.693 

80.000 

306.733 

130.000 

80.000 

97.993 

160.000 

80.000 

83.627 

180.000 

80.000 

82.713 

200.000 

80.000 

83.627 

230.000 

80.000 

97.993 

237.307 

80.000 

593.267 

114.992 

100.000 

306.656 

120.000 

100.000 

99.357 

130.000 

100.000 

89.323 

160.000 

100.000 

88.130 

180.000 

100.000 

87.966 

200.000 

100.000 

88.130 

230.000 

100.000 

89.323 

240.000 

100.000 

99.357 

245.008 

100.000 

653.374 

116.531 

120.000 

330.162 

120.000 

120.000 

109.000 

130.000 

120.000 

109.000 

160.000 

120.000 

107.418 

180.000 

120.000 

102.401 

200.000 

120.000 

107.418 

230.000 

120.000 

109.000 

240.000 

120.000 

109.000 

243.469 

120.000 

689.808 

118.355 

130.000 

355.065 

120.000 

130.000 

114.000 

130.000 

130.000 

114.000 

160.000 

130.000 

112.261 

180.000 

130.000 

112.238 

200.000 

130.000 

112.261 

230.000 

130.000 

114.000 

240.000 

130.000 

114.000 

241.645 

130.000 

724.935 

128.958 

140.000 

408.377 

130.000 

140.000 

119.000 

160.000 

140.000 

119.000 

180.000 

140.000 

119.000 
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200.000 

140.000 

119.000 

230.000 

140.000 

119.000 

231.042 

140.000 

731.653 

180.000 

156.018 

.000 

Factor  of  Safety  = 

1.946 

SURFACE*   5 

Coordinate    X 

Coordinate    Y 

Coordinate    Z 

180.000 

43.397 

.000 

150.678 

60.000 

376.696 

160.000 

60.000 

88.254 

180.000 

60.000 

86.833 

200.000 

60.000 

88.254 

209.322 

60.000 

523.304 

122.693 

80.000 

306.733 

130.000 

80.000 

97.993 

160.000 

80.000 

83.627 

180.000 

80.000 

82.713 

200.000 

80.000 

83.627 

230.000 

80.000 

97.993 

237.307 

80.000 

593.267 

114.992 

100.000 

306.656 

120.000 

100.000 

99.357 

130.000 

100.000 

89.323 

160.000 

100.000 

88.130 

180.000 

100.000 

87.966 

200.000 

100.000 

88.130 

230.000 

100.000 

89.323 

240.000 

100.000 

99.357 

245.008 

100.000 

653.374 

116.531 

120.000 

330.162 

120.000 

120.000 

109.000 

130.000 

120.000 

109.000 

160.000 

120.000 

107.418 

180.000 

120.000 

102.401 

200.000 

120.000 

107.418 

230.000 

120.000 

109.000 

240.000 

120.000 

109.000 

243.469 

120.000 

689.808 

118.355 

130.000 

355.065 

120.000 

130.000 

114.000 

130.000 

130.000 

114.000 

160.000 

130.000 

112.261 

180.000 

130.000 

112238 

200.000 

130.000 

112.261 

230.000 

130.000 

114.000 

240.000 

130.000 

114.000 

241.645 

130.000 

724.935 

128.958 

140.000 

408.377 

130.000 

140.000 

119.000 

160.000 

140.000 

119.000 

180.000 

140.000 

119.000 

200.000 

140.000 

119.000 

230.000 

140.000 

119.000 
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231.042 

140.000 

731.653 

180.000 

156.018 

.000 

Factor  of  Safety  = 

1.946 

SURFACE*   6 

Coordinate    X 

Coordinate    Y 

Coordinate     Z 

180.000 

43.397 

.000 

150.678 

60.000 

376.696 

160.000 

60.000 

88.254 

180.000 

60.000 

86.833 

200.000 

60.000 

88.254 

209.322 

60.000 

523.304 

122.693 

80.000 

306.733 

130.000 

80.000 

97.993 

160.000 

80.000 

83.627 

180.000 

80.000 

82.713 

200.000 

80.000 

83.627 

230.000 

80.000 

97.993 

237.307 

80.000 

593.267 

114.992 

100.000 

306.656 

120.000 

100.000 

99.357 

130.000 

100.000 

89.323 

160.000 

100.000 

88.130 

180.000 

100.000 

87.966 

200.000 

100.000 

88.130 

230.000 

100.000 

89.323 

240.000 

100.000 

99.357 

245.008 

100.000 

653.374 

116.531 

120.000 

330.162 

120.000 

120.000 

109.000 

130.000 

120.000 

109.000 

160.000 

120.000 

107.418 

180.000 

120.000 

102.401 

200.000 

120.000 

107.418 

230.000 

120.000 

109.000 

240.000 

120.000 

109.000 

243.469 

120.000 

689.808 

118.355 

130.000 

355.065 

120.000 

130.000 

114.000 

130.000 

130.000 

114.000 

160.000 

130.000 

112.261 

180.000 

130.000 

112.238 

200.000 

130.000 

112.261 

230.000 

130.000 

114.000 

240.000 

130.000 

114.000 

241.645 

130.000 

724.935 

128.958 

140.000 

408.377 

130.000 

140.000 

119.000 

160.000 

140.000 

119.000 

180.000 

140.000 

119.000 

200.000 

140.000 

119.000 

230.000 

140.000 

119.000 

231.042 

140.000 

731.653 

180.000 

156.018 

.000 
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SURFACE*   7 

Coordinate    X 

Coordinate     Y 

Coordinate     Z 

180.000 

43.397 

.000 

150.678 

60.000 

376.696 

160.000 

60.000 

88.254 

180.000 

60.000 

86.833 

200.000 

60.000 

88.254 

209.322 

60.000 

523.304 

122.693 

80.000 

306.733 

130.000 

80.000 

97.993 

160.000 

80.000 

83.627 

180.000 

80.000 

82.713 

200.000 

80.000 

83.627 

230.000 

80.000 

97.993 

237.307 

80.000 

593.267 

114.992 

100.000 

306.656 

120.000 

100.000 

99.357 

130.000 

100.000 

89.323 

160.000 

100.000 

88.130 

180.000 

100.000 

87.966 

200.000 

100.000 

88.130 

230.000 

100.000 

89.323 

240.000 

100.000 

99.357 

245.008 

100.000 

653.374 

116.531 

120.000 

330.162 

120.000 

120.000 

109.000 

130.000 

120.000 

109.000 

160.000 

120.000 

107.418 

180.000 

120.000 

102.401 

200.000 

120.000 

107.418 

230.000 

120.000 

109.000 

240.000 

120.000 

109.000 

243.469 

120.000 

689.808 

118.355 

130.000 

355.065 

120.000 

130.000 

114.000 

130.000 

130.000 

114.000 

160.000 

130.000 

112.261 

180.000 

130.000 

112.238 

200.000 

130.000 

112.261 

230.000 

130.000 

114.000 

240.000 

130.000 

114.000 

241.645 

130.000 

724.935 

128.958 

140.000 

408.377 

130.000 

140.000 

119.000 

160.000 

140.000 

119.000 

180.000 

140.000 

119.000 

200.000 

140.000 

119.000 

230.000 

140.000 

119.000 

231.042 

140.000 

731.653 

180.000 

156.018 

.000 

Factor  of  Safety  =    1.946 
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SURFACE*   8 

Coordinate     X 

Coordinate     Y 

Coordinate     Z 

180.000 

43.397 

.000 

150.678 

60.000 

376.696 

160.000 

60.000 

88.254 

180.000 

60.000 

86.833 

200.000 

60.000 

88.254 

209.322 

60.000 

523.304 

122.693 

80.000 

306.733 

130.000 

80.000 

97.993 

160.000 

80.000 

83.627 

180.000 

80.000 

82.713 

200.000 

80.000 

83.627 

230.000 

80.000 

97.993 

237.307 

80.000 

593.267 

114.992 

100.000 

306.656 

120.000 

100.000 

99.357 

130.000 

100.000 

89.323 

160.000 

100.000 

88.130 

180.000 

100.000 

87.966 

200.000 

100.000 

88.130 

230.000 

100.000 

89.323 

240.000 

100.000 

99.357 

245.008 

100.000 

653.374 

116.531 

120.000 

330.162 

120.000 

120.000 

109.000 

130.000 

120.000 

109.000 

160.000 

120.000 

107.418 

180.000 

120.000 

102.401 

200.000 

120.000 

107.418 

230.000 

120.000 

109.000 

240.000 

120.000 

109.000 

243.469 

120.000 

689.808 

118.355 

130.000 

355.065 

120.000 

130.000 

114.000 

130.000 

130.000 

114.000 

160.000 

130.000 

112.261 

180.000 

130.000 

112.238 

200.000 

130.000 

112.261 

230.000 

130.000 

114.000 

240.000 

130.000 

114.000 

241.645 

130.000 

724.935 

128.958 

140.000 

408.377 

130.000 

140.000 

119.000 

160.000 

140.000 

119.000 

180.000 

140.000 

119.000 

200.000 

140.000 

119.000 

230.000 

140.000 

119.000 

231.042 

140.000 

731.653 

180.000 

156.018 

.000 

Factor  of  Safety  =    1 .946 


SURFACE*   9 
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Coordinate    X 

Coordinate    Y 

Coordinate     Z 

180.000 

43.397 

.000 

150.678 

60.000 

376.696 

160.000 

60.000 

88.254 

180.000 

60.000 

86.833 

200.000 

60.000 

88.254 

209.322 

60.000 

523.304 

122.693 

80.000 

306.733 

130.000 

80.000 

97.993 

160.000 

80.000 

83.627 

180.000 

80.000 

82.713 

200.000 

80.000 

83.627 

230.000 

80.000 

97.993 

237.307 

80.000 

593.267 

114.992 

100.000 

306.656 

120.000 

100.000 

99.357 

130.000 

lOO.OOO 

89.323 

160.000 

100.000 

88.130 

180.000 

100.000 

87.966 

200.000 

100.000 

88.130 

230.000 

100.000 

89.323 

240.000 

100.000 

99.357 

245.008 

100.000 

653.374 

116.531 

120.000 

330.162 

120.000 

120.000 

109.000 

130.000 

120.000 

109.000 

160.000 

120.000 

107.418 

180.000 

120.000 

102.401 

200.000 

120.000 

107.418 

230.000 

120.000 

109.000 

240.000 

120.000 

109.000 

243.469 

120.000 

689.808 

118.355 

130.000 

355.065 

120.000 

130.000 

114.000 

130.000 

130.000 

114.000 

160.000 

130.000 

112.261 

180.000 

130.000 

112.238 

200.000 

130.000 

112.261 

230.000 

130.000 

114.000 

240.000 

130.000 

114.000 

241.645 

130.000 

724.935 

128.958 

140.000 

408.377 

130.000 

140.000 

119.000 

160.000 

140.000 

119.000 

180.000 

140.000 

119.000 

200.000 

140.000 

119.000 

230.000 

140.000 

119.000 

231.042 

140.000 

731.653 

180.000 

156.018 

.000 

Factor  of  Safety  = 

1.946 

SURFACE  #  10 

Coordinate     X  Coordinate     Y  Coordinate     Z 


127 


180.000 

43.397 

.000 

150.678 

60.000 

376.696 

160.000 

60.000 

88.254 

180.000 

60.000 

86.833 

200.000 

60.000 

88.254 

209.322 

60.000 

523.304 

122.693 

80.000 

306.733 

130.000 

80.000 

97.993 

160.000 

80.000 

83.627 

180.000 

80.000 

82.713 

200.000 

80.000 

83,627 

230.000 

80.000 

97.993 

237.307 

80.000 

593.267 

114.992 

100,000 

306.656 

120.000 

100.000 

99.357 

130.000 

100.000 

89.323 

160.000 

100.000 

88.130 

180.000 

100.000 

87.966 

200.000 

100.000 

88.130 

230.000 

100.000 

89.323 

240.000 

100.000 

99.357 

245.008 

100.000 

.  653.374 

116.531 

120.000 

330.162 

120.000 

120.000 

109.000 

130.000 

120.000 

109.000 

160.000 

120.000 

107.418 

180.000 

120.000 

102.401 

200.000 

120.000 

107.418 

230.000 

120.000 

109.000 

240.000 

120.000 

109.000 

243.469 

120.000 

689,808 

118.355 

130.000 

355.065 

120.000 

130.000 

114.000 

130.000 

130.000 

114.000 

160.000 

130.000 

112.261 

180.000 

130.000 

112.238 

200.000 

130,000 

112.261 

230.000 

130.000 

114.000 

240.000 

130.000 

114.000 

241,645 

130.000 

724,935 

128.958 

140.000 

408,377 

130.000 

140.000 

119.000 

160.000 

140.000 

119.000 

180.000 

140.000 

119.000 

200.000 

140.000 

119.000 

230.000 

140.000 

119.000 

231.042 

140.000 

731.653 

180.000 

156.018 

.000. 

Factor  of  Safety  = 

1.946 
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1 


1 

2 

3 

4 

5 

5 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 


$notruncate 

Stitle: 'PCSTBL3D  v2 . 0 ' 

$large 

PROGRAM  THESIS 
* 

* 

*  Purpose: 

*  Main  module  of  the  program  PCSTBL3D 


*  History: 

*  Version 


1.0 
2.0 


Progranuner 

J.E.Thomas 
G.Moshkovich 


Date 


Description 

created 

code  beautified, 

variables  declared 


*  IN  args/commons 

*  

* 

*  OUT  args/commons 

* 

* 

*  INOUT  args/commons 


Units 


Units 


Units 


Description 
Description 
Description 


*  Processing: 

*  Main  processing  module.  Gets  in/output  datafile  names,  number 

*  of  critical  surfaces  to  be  generated,  and  invoke  calculation  routins. 
* 

*  Special  Requirements: 

*  none 


* Include  files 

$include: ' CURRENTF. INC ' 
*****  Begin  listing  of:  CURRENTF. INC 


*  Purpose: 

*  Include  file  with  parameter  declaration  for  the  program  PCSTL3D 


*  History: 

*  Version 


*  1.0 
* 

*  IN  args/commons 
* 

* 

*  OUT  args/commons 

* 

* 

*  INOUT  args/commons 


*  Processing: 

*  none 


Programmer 
G.Moshkovich 

Units 


Date  Description 

created 
Description 


Units 


Units 


Description 
Description 
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23  * 

24  *  Special  Requirements: 

2  5  *     none 

26  * 

27  * Include  files 

28  * Constant  declarations 

29  integer  MCOORD,  MSOIL,  NUMCOL,  NCORN 
30 

31  parameter  (MCOORD  =25,  MSOIL  =5) 

32  parameter  (NUMCOL  =  10,  NCORN  =  4) 

33  PARAMETER  (MAXSUR=2000 ) 
34 

35  * MCOORD  -  maximum  number  of  points  in  each  direction 

36  * — • MSOIL  -   maximum  number  of  soil  layers 

3  7   * NUMCOL  -  maximum  number  of  generated  columns 

38   * NCORN  -  number  of  nods  for  each  column  (do  not  change) 

39 

40  * Argument  declarations 

41  * , . Global/External  declarations 

42  * Local  declarations 

43 

44 
45 

*****  End  listing  of:  CURRENTF.INC  - 

36  * Constant  declarations 

37  * Argument  declarations 

38  * ■ — ■ Global/External  declarations 

39  EXTERNAL  INDATA,GENSUR, PARAMl , CRITIC 

40  * Local  declarations  

41  REAL  X(MCOORD) ,Y(MCOORD) , Z(MSOIL, MCOORD, MCOORD) ,XMIN1 (MCOORD) , 

42  IDXMINl (MCOORD) ,XMIN2 (MCOORD) , DXMIN2 (MCOORD ) , ZMIN (MCOORD , MCOORD ) , 

43  2D ZMIN (MCOORD, MCOORD) ,GAMA(MSOIL) ,COES(MSOIL) ,FI (MSOIL) ,RU(MSOIL) , 

44  3UZ( MSOIL, MCOORD, MCOORD) , XI POL (MCOORD ) , XFPOL (MCOORD ) , XPOL ( MCOORD , 

45  4MCOORD) , YPOL (MCOORD ) , Z POL (MCOORD, MCOORD ) , XD IFF (MCOORD ) , 

46  5XCOL ( MCOORD , -NUMCOL : NUMCOL , NCORN ) , YCOL ( MCOORD , -NUMCOL : NUMCOL , 

47  5NC0RN) , ZCOL (MCOORD , -NUMCOL : NUMCOL, NCORN) , NCOLEF (MCOORD ) , 

48  7NPTLEF ( MCOORD ) , NCORIG ( MCOORD ) , NPTRIG ( MCOORD ) , ALPHAXZ ( MCOORD , - 

49  8NUMCOL : NUMCOL ) ,ALPHAYZ( MCOORD, -NUMCOL: NUMCOL) , DIP (MCOORD , - 
5  0  9NUMC0L : NUMCOL ) , TETA ( MCOORD , -NUMCOL : NUMCOL ) , A3 ( MCOORD , - 

51  XNUMCOL: NUMCOL) , ZSOL (MSOIL, MCOORD , -NUMCOL: NUMCOL, NCORN) ,W3 (MCOORD, 

5  2  XNUMCOL : NUMCOL ) , U  3 ( MCOORD , -NUMCOL : NUMCOL ) 

53  REAL  FSCUM(MAXSUR) 

54  REAL  XAPRIN,YMINl,DYMINl,YMIN2,DYMIN2,DATOUT,FS,YPAl,YPA2 

5  5  INTEGER  NXPOL ( MCOORD ) , NXSTAR ( MCOORD ) , NXEND ( MCOORD ) , UCOND ( MSOIL ) 

56  INTEGER  DIFF, NX, NY , NSOIL, NSURFA, NSURF, NYSTAR, NYPOL, NYEND 

57  * Code 

58  PRINT  20,  1, '  ' 

5g  PRINT  *  '  ****************************************************' 

60  PRINT  *,'  *     3D-PCSTABL  :  Three  Dimesional  Slope  Stability  *' 

61  PRINT  *, '  *  from  Purdue  University            *' 
Q2  PRINT  *- '  ****************************************************' 

63  PRINT 

64  PRINT 

65  * read  data  

66  CALL  INDATA  ( NX, NY , NSOIL, X, Y, Z , XAPRIN, YMINl , DYMINl , YMIN2 , DYMIN2 , 

67  1XMIN1,DXMIN1,XMIN2,DXMIN2, ZMIN, DZMIN,GAMA, GOES, FI, UCOND, RU,UZ, 

68  2DAT0UT) 

69  WRITE  (*,30)  '  Enter  number  of  surfaces  to  be  generated  :  ' 
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70 
71 
72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
*****  THESIS. 


10 


20 
30 


READ  (  * , *  )  NSURFA 

WRITE  (*,*)  ' 

WRITE  (*,*)  '  Running  ....' 

DO  10  NSURF=1, NSURFA 

WRITE  (*,*)  'Now  analysing  surface  #',NSURF 

.generate  3D-surface 

CALL  GENSUR  (NX, NY,X, Y, Z , XAPRIN, YMINl , DYMINl, YMIN2 , DYMIN2 , 
XMINl , DXMINl , XMIN2 , DXMIN2 , ZMIN , DZMIN , YPAl , NXEND , YPA2 , NYSTAR, 
NYPOL , XIPOL , XFPOL , NXSTAR, NXPOL , XPOL , ZPOL , YPOL , XCOL , YCOL , ZCOL 
NCOLEF , NCORIG , NPTLEF , NPTRIG , ZSOL , NSOIL , NYEND , D I FF ) 

. calculate  parameters  of  columms 

CALL  PARAMl  (NYPOL, XCOL, YCOL, ZCOL, ZSOL, NCOLEF, NCORIG, ALPHAXZ , 
ALPHAYZ , DIP , TETA, A3 , GAMA, RU , W3 , U3 , NSOIL ) 

.calculate  factor  of  safety. 

CALL  FSCALC  ( GOES , FI , A3 ,W3 , U3 , DIP, ALPHAYZ , FS, NYPOL, NCOLEF, 

NCORIG) 
IF  (FS.GT.0.1)  THEN 
FSCUM(NFS)=FS 
NFS=NFS+1 
END  IF 

.store  and  print  10  most  critical  surfaces 

CALL  CRITIC  (NYPOL, NXPOL, XPOL, YPOL, ZPOL, NXSTAR, NXEND, NSURF, 
NSURFA , FS , NX , NY , X , Y , Z , NYSTAR , NYEND ) 

. .end  of  loop 

CONTINUE 

CALL  WEIBUL  (NFS,FSCUM) 

WRITE  (*,*)  '  Finished..  Use  graphical  processor  to  check  surface 

STOP 


FORMAT  (A,T2,A) 
FORMAT  (A) 
END 
FOR(lOl)  :  warning  F4999; 


XDIFF 


variable  declared  but  not  used 


main   Local  Symbols 
Name 


Class 


Z local 

NCORIG local 

NSOIL local 

NSURF local 

NSURFA local 

DATOUT local 

NYPOL local 

XAPRIN local 

DIFF local 

FS local 

YPAl local 

YPA2 local 

NYSTAR local 

NX local 

NFS  . local 

NY local 

YMINl local 

YMIN2 local 


Type 

Size 

Offset 

REAL* 4 

12500 

0000 

REAL* 4 

100 

0000 

INTEGER*4 

4 

0002 

INTEGER*4 

4 

0006 

INTEGER*4 

4 

000a 

REAL* 4 

4 

OOOe 

INTEGER*4 

4 

0012 

REAL* 4 

4 

0016 

INTEGER*4 

4 

001a 

REAL* 4 

4 

OOle 

REAL* 4 

4 

0022 

REAL* 4 

4 

0026 

INTEGER*4 

4 

002a 

INTEGER*4 

4 

002e 

INTEGER*4 

4 

0032 

INTEGER*4 

4 

0036 

REAL* 4 

4 

003a 

REAL* 4 

4 

003e 
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4 


main   Local  Symbols 
Name 


Class 


DYMINl local 

DYMIN2 local 

NYEND local 

DZMIN local 

XPOL. local 

YPOL. local 

ZPOL local 

U3 local 

ZSOL local 

DIP local 

NXSTAR local 

RU local 

GOES. local 

XMINl local 

TETA local 

XMIN2 local 

UZ local 

XDIFF local 

DXMINl local 

DXMIN2 local 

A3 local 

XGOL local 

NCOLEF local 

YGOL local 

ZCOL local 

NPTLEF local 

XFPOL local 

W3 local 

XIPOL local 

FI local 

NXPOL local 

NPTRIG local 

GAMA local 

ALPHAXZ local 

X local 

ALPHAYZ local 

UCOND local 

NXEND local 

FSCUM local 

Y local 

ZMIN local 


Type 

Size 

Offset 

REAL*4 

4 

0042 

REAL*4 

4 

0046 

INTEGER* 4 

4 

004a 

REAL*4 

2500 

0064 

REAL*4 

2500 

0a28 

REAL*4 

100 

13ec 

REAL*4 

2500 

1450 

REAL* 4 

2100 

lel4 

REAL* 4 

42000 

2648 

REAL*4 

2100 

30d4 

INTEGER*4 

100 

3908 

REAL* 4 

20 

396c 

REAL*4 

20 

3980 

REAL* 4 

100 

3994 

REAL*4 

2100 

39f8 

REAL* 4 

100 

422c 

REAL* 4 

12500 

4290 

REAL* 4 

100 

.7  364 

REAL* 4 

100 

73c8 

REAL* 4 

100 

742c 

REAL* 4 

2100 

7490 

REAL* 4 

8400 

7cc4 

REAL* 4 

100 

9d94 

REAL*4 

8400 

9df8 

REAL* 4 

8400 

bec8 

REAL* 4 

100 

ca58 

REAL* 4 

100 

cabc 

REAL* 4 

2100 

cb2  0 

REAL* 4 

100 

d354 

REAL*4 

20 

d3b8 

INTEGER*4 

100 

d3cc 

REAL* 4 

100 

d430 

REAL* 4 

20 

d494 

REAL* 4 

2100 

d4a8 

REAL* 4 

100 

dcdc 

REAL* 4 

2100 

dd40 

INTEGER*4 

20 

df98 

INTEGER*4 

100 

dfac 

REAL* 4 

8000 

eOlO 

REAL* 4 

100 

e574 

REAL* 4 

2500 

e5d8 

Symbolic  Constant 


Type 


MCOORD.  INTEGER* 4 

MSOIL INTEGER*4 

NUMCOL INTEGER*4 

NCORN INTEGER*4 

MAXSUR INTEGER*4 


Value 


25 
5 

10 

4 

2000 
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Global  Symbols 
Name 


Class 


CRITIC extern 

FSCALC extern 

GENSUR extern 

INDATA extern 

PARAMl extern 

WEIBUL extern 

main FSUBRT 

Code  size  =  04a5  (1189) 
Data  size  =  Old  (449) 
Bss  size   =  004e  (78) 


Type 

*** 
*** 
*** 
*** 
*** 
*** 
*** 


Size 

*** 

*  ** 

*  *  * 

*  *  * 
*** 
*** 
*** 


Offset 

*  ** 
*** 
*** 
*** 
*** 
*** 
0000 


No  errors  detected 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 


$notruncate 

$title: 'PCSTBL3D  v2.0' 

Ssubtitle: 'Left  Side  Columns' 

SUBROUTINE  COLUML  ( YPAl , YPA2 , NYSTAR, NYPOL, X, Y, Z , XAPRIN, XIPOL, 

INXSTAR ,  NXPOL , XPOL , YPOL , XCOL , YCOL , ZCOL , NCOLEF , NPTLEF , ZPOL , ZSOL , 

2XDIFF,NSOIL,NPPOL) 


Prologue 


*  Purpose: 

*  Calculates  coordinates  of  the  columns  for  the  left  side 
* 


*  History: 

*  Version 


1.0 
2.0 


Programmer 

J.E.Thomas 
G.Moshkovich 


Date 


Description 

created 

code  beautified, 

variables  declared 


*  IN  args/commons 

*  

*  X 

*  y 

*  z 

* 

*  OUT  args/commons 

*  

* 

*  INOUT  args/commons 


Units 


Units 


Units 


Description 

Description 
Description 


*  Processing: 

*  Main  processing  module.  Gets  in/output  datafile  names,  number 

*  of  critical  surfaces  to  be  generated,  and  invoke  calculation  routins. 
* 

*  Special  Requirements: 

*  none 


$  include:  ' CURRENTF . INC ' 


Include  files 


134 

5 


135 


*****  Begin  listing  of:  CURRENTF.INC 
* 

* 

*  Purpose: 

*  Include  file  with  parameter  declaration  for  the  program  PCSTL3D 


1 
2 
3 
4 
5 
6 
7 
8 
9 
10 

11  * 

12  *  IN  args/commons 

13  * 

14  * 

15  *  OUT  args/commons 

16  * 

17  * 


*  History: 

*  Version 

*  — . 

*  1.0 


Programmer 
G.Moshkovich 
Units 


Units 


Date  Description 

created 
Description 


Description 


136 


-^H   PCSTBL3D  v2 . 0  PAGE 

Left  Side  Columns  04-12-91 

12:06:28 

Line#  Source  Line  Microsoft  FORTRAN  Optimizing  Compiler  Version  5.00 

18  *  INOUT  args/commons        Units  Description 

19  * 

20  * 

21  *  Processing: 

22  *     none 

23  * 

24  *  Special  Requirements: 

25  *    none 

26  * 

27  * Include  files 

28  * Constant  declarations 

29  integer  MCOORD,  MSOIL,  NUMCOL,  NCORN 
30 

31  parameter  (MCOORD  =  25,  MSOIL  =5) 

32  parameter  (NUMCOL  =  10,  NCORN  =  4) 

33  PARAMETER  (MAXSUR=2000 ) 
34 

35  * MCOORD  -  maximum  number  of  points  in  each  direction 

36  * MSOIL  -   maximum  number  of  soil  layers 

37  * NUMCOL  -  maximum  number  of  generated  columns 

38  * NCORN  -  number  of  nods  for  each  column  (do  not  change) 

39 

40  * Argument  declarations 

41  * Global/External  declarations 

42  * Local  declarations 


43 
44 
45 

*****  End  listing  of:  CURRENTF.INC 

41  * Constant  declarations  

42  * Argument  declarations 

43  REAL  X (MCOORD) ,Y(MCOORD) ,Z (MSOIL, MCOORD, MCOORD) ,XIPOL(MCOORD) , 

44  IXPOL ( MCOORD , MCOORD ) , ZPOL ( MCOORD , MCOORD ) , YPOL ( MCOORD ) , XCOL ( MCOORD , 

45  2NUMC0L : NUMCOL , NCORN ) , YCOL ( MCOORD , -NUMCOL : NUMCOL , NCORN ) , 

46  3  ZCOL ( MCOORD , -NUMCOL : NUMCOL , NCORN ) , ZSOL ( MSOIL , MCOORD , - 

47  4NUMCOL: NUMCOL, NCORN) 

48  REAL  yPAl,YPA2 

49  INTEGER  XAPRIN,XROW 

50  INTEGER  XD IFF (MCOORD ) , NXPOL (MCOORD ) , NXSTAR( MCOORD ) , NCOLEF (MCOORD ) 

51  1NPTLEF( MCOORD) 

52  * Global/External  declarations  

53  EXTERNAL  COORYZ 

54  * Local  declarations  

55  REAL  yTESl,XTESl,YTES2,XTES2,A,B,YTESTE,ZFINAL,ALPHA 

56  INTEGER  I , NI , NY ,M1 , NNN, J, II , NNJ, NNJl , JJJ, JJJl 

57  * Code 

58  C  

59  C  calculate  cordinates  of  basis  of  columns 

60  C  

61  C  

62  C  PART  1  -  1st  SERIES  OF  COLUMNS  -  LEFT  SIDE 

63  C  

64  YTES1=YPA1 

65  XTES1=X(XAPRIN)  '       . 

66  YTES2=Y(NYSTAR) 

67  XTES2=XIPOL(2) 

68  A=(YTES1-YTES2)/(XTES1-XTES2) 

69  B=YTES1-A*XTES1 
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number  of  columns 

NCOLEF ( 1 ) = (XAPRIN-NXSTAR ( 2 ) +1 ) 

number  of  points 

NPTLEF ( 2 ) =NCOLEF ( 1 ) +1 

transfer  coordinates 

DO  40  I=l,NCOLEF(l) 
NI  =  -I 

XCOL ( 1 , NI , 1 ) =XPOL ( NPTLEF ( 2 ) +1-1 , 2 ) 
XCOL ( 1 , NI , 2 ) =XPOL ( NPTLEF ( 2 ) +1-1 , 2 ) 
XCOL ( 1 , NI , 3 ) =XPOL ( NPTLEF { 2 ) -I , 2 ) 
XCOL ( 1 , NI , 4 ) =XPOL ( NPTLEF ( 2 ) -I , 2 ) 
YCOL ( 1 , NI , 1 ) =A*XCOL ( 1 , NI , 1 ) +B 
YCOL ( 1 , NI , 2 ) =Y ( NYSTAR) 
YCOL ( 1 , NI , 3 ) =Y ( NYSTAR ) 
YCOL ( 1 , NI , 4 ) =A*XCOL { 1 , NI , 4 ) +B 


70 

C 

71 

C 

72 

C 

73 

74 

C 

75 

C 

76 

C 

77 

78 

C 

79 

C 

80 

C 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

C 

92 

C 

93 

C 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

C 

124 

C 

125 

c 

126 

c 

127 

define  xrow  to  be  used 


XR0W=XAPRIN+1-I 

YTESTE=YCOL ( 1 , NI , 1 ) 

CALL  COORYZ  ( XROW, Y , Z , NY , YTESTE , ZFINAL , ALPHA) 

ZC0L(1,NI,1)=ZFINAL 

ZCOL ( 1 , NI , 2 ) =ZPOL ( NPTLEF ( 2 ) +1-1 , 2 ) 

ZCOL ( 1 , NI , 3 ) =  ZPOL ( NPTLEF ( 2 ) - 1 , 2 ) 

DO  10  M1=1,NS0IL 

NNN=NPTLEF(2)+1-I 
ZSOL(Ml, l,NI,l)=ZCOL(l,NI, 1) 
ZSOL ( Ml , 1 , NI , 2 ) =Z ( Ml , NNN+XDIFF ( 2 ) , NYSTAR ) 
ZSOL(Ml, 1,NI,3)=Z(M1,NNN-1+XDIFF(2) , NYSTAR) 
10        CONTINUE 

IF  (XR0W.EQ.NXSTAR(2) )  THEN 
ZCOL ( 1 , NI , 4 ) =ZPOL ( 1 , 2 ) 
DO  20  M1=1,NS0IL 

ZS0L(M1, l,NI,4)=ZCOL(l,NI,4) 
20  CONTINUE 

ELSE 

YTESTE=YCOL ( 1 , NI , 4 ) 

CALL  COORYZ  ( XROW-1 , Y , Z , NY , YTESTE , ZFINAL, ALPHA) 

ZCOL ( 1 , NI , 4 ) =ZFINAL 

DO  30  M1=1,NS0IL 

ZSOL(Ml,l,NI,4)=ZCOL(l,NI,4) 
30  CONTINUE 

END  IF 
40    CONTINUE 

XPOL ( 1 , 1 ) =X ( XAPRIN ) 
ZPOL ( 1 , 1 ) =ZCOL ( 1 , -1 , 1 ) 
NXPOL(l)=l 

Part  2  -  FOR  ALL  NEXT  SERIES  OF  COLUMNS  -  LEFT  SIDE 
(  2nd  to  nypol-2  ) 


DO  220  J=2, NYPOL-2 
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check  the  number  of  points  of  the  ith  and  the  i+1  th 

NCOLEF ( J ) = ( XAPRIN-NXSTAR ( J ) +1 ) 
NCOLEF ( J+1 ) = ( XAPRIN-NXSTAR ( J+1 ) +1 ) 

A)  — >  if  number  of  points  of  j+1  >  than  j  < 

IF  (NCOLEF ( J+1 ) .GT. NCOLEF (J) )  THEN 

number  of  columns 


128 

C 

129 

C 

130 

C 

131 

132 

133 

C 

134 

C 

135 

C 

136 

137 

C 

138 

C 

139 

C 

140 

141 

142 

C 

143 

C 

144 

C 

145 

146 

147 

148 

149 

150 

151 

C 

152 

C 

153 

C 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

C 

180 

C 

181 

C 

182 

183 

184 

185 

NPTLEF ( J ) =NCOLEF ( J ) +1 
NPTLEF ( J+1 ) =NCOLEF ( J+1 ) +1 


calculate  line  that  connects  extremities 


YTESl=YPOL(J+l) 

XTESl=XPOL(l, J+1) 

YTES2=yPOL( J) 

XTES2=XPOL(l, J) 

A= ( YTES1-YTES2 ) / ( XTES1-XTES2 ) 

B=YTES1-A*XTES1 


transfer  coordinates 


DO  110  II=l,NCOLEF(J+l) 
NI=-II 

NNJ=NPTLEF(J)+1-II 
NNJ1=NPTLEF ( J+1 ) +1-1 I 
JJJ=NYSTAR+J-2 
JJJl=NYSTAR+J+l-2 

XCOL ( J , NI , 1 ) =XPOL ( NPTLEF (J+1)+1-II,J+1) 
XCOL ( J , NI , 2 ) =XPOL ( NPTLEF (J+1)+1-II,J+1) 
XCOL ( J , NI , 3 ) =XPOL ( NPTLEF ( J+ 1 ) - II , J+1 ) 
XCOL ( J , NI , 4 ) =XPOL ( NPTLEF { J+ 1 ) - I I , J+1 ) 
IF  (II.LE.NCOLEF(J)-l)  THEN 

YCOL ( J , NI , 1 ) =YPOL ( J ) 

YCOL ( J , NI , 2 ) =YPOL ( J+1 ) 

YCOL ( J , NI , 3 ) =YPOL ( J+1 ) 

YCOL ( J , NI , 4 ) =YPOL ( J ) 
ELSE 

IF  (II.EQ.NCOLEF(J) )  THEN 
YCOL ( J , NI , 1 ) =YPOL ( J ) 

ELSE 

YCOL ( J , NI , 1 ) =A*XCOL ( J , NI , 1 ) +B 

END  IF 
-   YCOL(J,NI,2)=YPOL(J+l) 

YCOL ( J , NI , 3 ) =YPOL ( J+ 1 ) 

YCOL ( J , NI , 4 ) =A*XCOL ( J , NI , 4 ) +B 
END  IF 

define  xrow  to  be  used 

IF  (II.LE.NCOLEF( J)-l)  THEN 

ZCOL(J,NI, l)=ZPOL{NPTLEF( J)+1-II, J) 
ZCOL(J,NI,2)=ZPOL(NPTLEF(J+l)+l-II, J+1) 
ZCOL ( J , NI , 3 ) =  ZPOL ( NPTLEF ( J+1 ) - 1 1 , J+ 1 ) 
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186  ZCOL ( J , NI , 4 ) =ZPOL ( NPTLEF { J ) -II , J ) 

187  DO  50  M1=1,NS0IL 

188  ZSOL(Ml,J,NI,l)=Z{Ml,NNJ+XDIFF(J) ,JJJ) 

189  ZSOL(Ml, J,NI,2)=Z(M1,NNJ1+XDIFF(J+1) , JJJl ) 

190  ZSOL(Ml,J,NI,3)=Z{Ml,NNJl-l+XDIFF(J+l) , JJJl ) 

191  ZSOL(Ml, J,NI,4)=Z{M1,NNJ-1+XDIFF(J) , JJJ) 

192  50  CONTINUE 

193  ELSE 

194  IF  {II.EQ.NCOLEF(J) )  THEN 

195  ZCOL(J,NI,l)=ZCOL( J,NI+1,4) 

196  DO  60  Ml=l,NSOIL 

197  ZSOL(Ml, J,NI,l)=ZSOL(Ml, J,NI+1,4) 

198  60  CONTINUE 

199  ELSE 

200  XROW=XAPRIN+l-II 

201  YTESTE=YCOL( J,NI, 1) 

202  CALL  COORYZ  (XROW, Y , Z , NY, YTESTE, ZFINAL, ALPHA) 

203  ZC0L(J,NI,1)=ZFINAL 

204  DO  70  Ml=l,NSOIL 

205  ZSOL(Ml, J,NI,1)=ZFINAL 

206  70     ■  CONTINUE 

207  END  IF 

208  ZCOL ( J, NI , 2 ) =ZPOL (NPTLEF ( J+1 ) +1-II , J+1 ) 

209  ZCOL  ( J ,  NI ,  3  )  =ZPOL  ( NPTLEF.  ( J+ 1 )  - 1 1 ,  J+1 ) 

210  DO  80  Ml=l,NSOIL 

211  ZSOL(Ml, J,NI,2)=Z(M1,NNJ1+XDIFF( J+1) , JJJl) 

212  ZSOL(Ml, J,NI,3)=Z(M1,NNJ1-1+XDIFF( J+1) , JJJl) 

213  80  CONTINUE 

214  XR0W=XAPRIN+1-II 

215  IF  ( XROW. EQ.NXSTAR( J+1 ) )  THEN 

216  ZCOL(J,NI,4)=ZPOL(l, J+1) 

217  DO  90  M1=1,NS0IL 

218  ZSOL(Ml, J,NI,4)=ZPOL(l, J+1) 

219  90  CONTINUE 

220  ELSE 

221  YTESTE=YCOL( J,NI,4) 

222  CALL  COORYZ  (XROW-1 , Y , Z , NY , YTESTE, ZFINAL, 

223  1  ALPHA) 

224  ZC0L(J,NI,4)=ZFINAL 

225  DO  100  Ml=l,NSOIL 

226  ZS0L(M1, J,NI,4)=ZFINAL 

227  100  CONTINUE 

228  END  IF 

229  END  IF 

230  110  CONTINUE 

231  C  

232  C  Here  ends  the  condition  J+1  >  j 

233  C  

234  END  IF 

2  35  C      

236  C     B)  — >  if  number  of  points  of  j+1  =  number  of  points  of  j 

2  37  C      

238  IF  (NCOLEF( J+1) .EQ.NCOLEF( J) )  THEN 

239  C  

240  C  number  of  points 

241  C  

242  NPTLEF( J)=NCOLEF(J)+l 

243  NPTLEF( J+l)=NCOLEF( J+l)+l 
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transfer  coordinates 

DO  130  II=l,NCOLEF(J+l) 
NI=-II 

NNJ=NPTLEF ( J ) +1-1 I 
NNJ1=NPTLEF ( J+1 ) +1-II 
JJJ=NYSTAR+J-2 
JJJl=NYSTAR+J+l-2 


244 

C 

245 

C 

246 

C 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

120 

276 

130 

277 

C 

278 

C 

279 

c 

280 

281 

c 

282 

c 

283 

c 

284 

285 

c 

286 

c 

287 

c 

288 

289 

290 

c 

291 

c 

292 

c 

293 

294 

295 

296 

297 

298 

299 

c 

300 

c 

301 

c 

XC0L(J,NI,1 
XC0L(J,NI,2 
XC0L(J,NI,3 
XCOL(J,NI,4 
yCOL( J,NI,1 
YCOL( J,NI,2 
YC0L(J,NI,3 
YC0L(J,NI,4 
ZC0L(J,NI,1 
ZC0L(J,NI,2 
ZCOL( J,NI,3 
ZCOL( J,NI,4 


|=XPOL(NPTLEF(J)+l-II, J) 
I =XPOL (NPTLEF ( J+1 ) +1-II , J+1 ) 
I =XPOL ( NPTLEF ( J+1 ) -II , J+ 1 ) 
I =XPOL { NPTLEF ( J ) - I I , J ) 
|=YPOL(J) 
=YPOL(J+l) 
=YP0L(J+1) 
l=YPOL(J) 

I  =ZPOL ( NPTLEF ( J ) +1- 1 1 , J ) 
|=ZPOL(NPTLEF( J+1)+1-II, J+1) 
I  =ZPOL (NPTLEF ( J+1 ) -II , J+1 ) 
I  =ZPOL ( NPTLEF ( J ) -I I , J ) 
DO  120  M1=1,NS0IL 

ZSOL (M1,J,NI,1)=Z(M1, NNJ+XD IFF ( J ) , J J J ) 
ZSOL ( Ml , J , NI , 2 ) =Z ( Ml , NNJl+XDIFF ( J+1 ) , JJJl ) 
IF  (II.NE.NC0LEF{J+1) )  THEN 

ZSOL{Ml, J,NI,3)=Z(M1,NNJ1-1+XDIFF( J+1) , JJJl ) 
ZSOL (Ml , J , NI , 4 ) =Z (Ml , NNJ-1+XDIFF ( J ) , JJJ ) 
ELSE 

ZS0L(M1, J,NI,3)=ZCOL(J,NI,3) 
ZSOL(Ml, J,NI,4)=ZCOL(J,NI,4) 
END  IF 
CONTINUE 
CONTINUE 

Here  ends  the  condition  j+1  =  j 

END  IF 
A)  — >  if  number  of  points  of  j+1  <  than  j  < 

IF  (NC0LEF(J+1) .LT.NCOLEF(J) )  THEN 

number  of  points 

NPTLEF ( J ) =NCOLEF ( J ) +1 
NPTLEF ( J+1 ) =NCOLEF ( J+1 ) +1 


calculate  line  that  connects  extremities 


YTES1=YP0L(J+1) 

XTESl=XPOL(l, J+1) 

YTES2=YPOL(J) 

XTES2=XPOL(l, J) 

A= ( YTES1-YTES2 ) / ( XTES1-XTES2 ) 

B=YTES1-A*XTES1 


transfer  coordinates 
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302  DO  210  II=1,NC0LEF(J) 

303  NI=-II 

304  NNJ=NPTLEF( J)+1-II 

305  NNJ1=NPTLEF(J+1)+1-II 

306  JJJ=NYSTAR+J-2 

307  JJJl=NYSTAR+J+l-2 

308  XCOL(J,NI,l)=XPOL(NPTLEF(J)+l-II,J) 

309  XCOL{J,NI,2)=XPOL(NPTLEF(J)+l-II,J) 

310  XCOL ( J , NX , 3 ) =XPOL ( NPTLEF ( J ) -II , J ) 

311  XCOL ( J , NI , 4 ) =XPOL ( NPTLEF { J ) -I I , J ) 

312  IF  (II.LE.NCOLEF(J+l)-l)  THEN 

313  YCOL(J,NI,l)=YPOL(J) 

314  YCOL(J,NI,2)=YPOL(J+l) 

315  YCOL(J,NI,3)=YPOL(J+l) 

316  YC0L(J,NI,4)=YP0L(J) 

317  ELSE 

318  YCOL(J,NI,l)=YPOL(J) 

319  IF  (II.EQ.NCOLEF(J+l) )  THEN 

320  YCOL(J,NI,2)=YPOL( J+1) 

321  ELSE 

322  YCOL ( J, NI , 2 ) =A*XCOL ( J , NI , 2 ) +B 

323  END  IF 

324  YCOL(J,NI,3)=A*XCOL(J,NI,3)+B 

325  YCOL(J,NI,4)=YPOL( J) 

326  END  IF 

327  C 

328  C     define  xrow  to  be  used 

329  C      ■ •■ • 

330  IF  (II.LE.NCOLEF(J+l)-l)  THEN 

331  ZCOL(J,NI,l)=ZPOL(NPTLEF(J)+l-II, J) 

332  ZCOL ( J , NI , 2 ) =ZPOL ( NPTLEF ( J+1 ) +1-1 I , J+1 ) 

333  ZCOL ( J , NI , 3 ) =ZPOL (NPTLEF ( J+1 ) -II , J+1 ) 

334  ZCOL ( J , NI , 4 ) =ZPOL ( NPTLEF ( J ) -I I , J ) 

335  DO  140  Ml=l,NSOIL 

336  ZS0L(M1, J,NI,1)=Z(M1,NNJ+XDIFF(J) , JJJ) 

337  ZSOL(Ml,J,NI,2)=Z(Ml,NNJl+XDIFF(J+l) , JJJl) 

338  ZS0L(M1, J,NI,3)=Z(M1,NNJ1-1+XDIFF( J+1) , JJJl) 

339  ZSOL(Ml, J,NI,4)=Z(M1,NNJ-1+XDIFF( J) , JJJ) 

340  140  CONTINUE 

341  ELSE 

342  ZCOL ( J , NI , 1 ) =ZPOL ( NPTLEF ( J ) +1-1 I , J ) 

343  DO  150  Ml=l,NSOIL 

344  ZSOL(Ml, J,NI, 1)=Z (Ml , NNJ+XDIFF ( J ) , JJJ) 

345  150  CONTINUE 

346  XROW=XAPRIN+l-II 

347  IF  (II.EQ.NCOLEF(J+l) )  THEN 

348  ZCOL(J,NI,2)=ZCOL(J,NI+l,3) 

349  DO  160  Ml=l,NSOIL 

350  ZSOL(Ml,J,NI,2)=ZSOL(Ml, J,NI+1,3) 

351  160  CONTINUE 

352  ELSE 

353  YTESTE=YCOL(J,NI,2) 

354  CALL  COORYZ  (XROW, Y, Z , NY , YTESTE , ZFINAL, ALPHA) 

355  ZCOL(J,NI,2)=ZFINAL 

356  DO  170  Ml=l,NSOIL 

357  ZSOL(Ml, J,NI,2)=ZFINAL 

358  170  CONTINUE 

359  END  IF 
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360  IF  ( XROW . EQ . NXSTAR ( J ) )  THEN 

361  ■  ZCOL(J,NI,3)=ZPOL(l, J) 

362  DO  180  M1=1,NS0IL 

363  -  ZSOL(Ml,J,NI,3)=ZPOL(l,J) 

364  180  '                CONTINUE 

365  ELSE 

366  yTESTE=YCOL{J,NI,3) 

367  CALL  COORYZ  ( XROW-1 , Y , Z , NY, YTESTE , ZFINAL, 

368  1  ALPHA) 

369  ZC0L(J,NI,3)=ZFINAL 

370  DO  190  Ml=l,NSOIL 

371  ZSOL{Ml,J,NI,3)=ZFINAL 

372  190  CONTINUE 

373  END  IF 

374  END  IF 

375  ZCOL ( J , NI , 4 ) =ZPOL ( NPTLEF ( J ) -I I , J ) 

376  DO  200  M1=1,NS0IL 

377  ZS0L(M1, J,NI,4)=Z(M1,NNJ-1+XDIFF(J) , JJJ) 

378  200  CONTINUE 

379  210  CONTINUE 

380  C  

381  C  Here  ends  the  condition  J+1  <  j 

382  C  

383  END  IF 

384  C  

385  C  This  label  3  ends  the  process  for  the  left  side 

386  C  

387  220   CONTINUE 

388  C  

389  C  PART  3  -  LAST  SERIES  OF  COLUMNS  -  LEFT  SIDE 

390  C  

391  YTES1=YPA2 

392  XTES1=X(XAPRIN) 

393  yTES2=YP0L(NYP0L-l) 

394  XTES2=XPOL(l,NYPOL-l) 

395  A=(YTES1-YTES2)/ ( XTES1-XTES2 ) 

396  B=YTES1-A*XTES1 

397  C  

398  C  number  of  columns 

399  C  

400  NCOLEF ( NYPOL- 1 ) = ( XAPRIN-NXSTAR ( NYPOL-1 ) +1 ) 

401  C  

402  C  number  of  points 

403  C  

404  NPTLEF ( NYPOL-1 ) =NCOLEF ( NYPOL-1 ) +1 

405  NPPOL=NYPOL-l 

406  C  

407  C  transfer  coordinates 

408  C  

409  DO  280  1=1, NCOLEF (NPPOL) 

410  NI=-I 

411  NNJ=NPTLEF(NPPOL)+l-I 

412  JJJ=NYSTAR+NPPOL-2 

413  XCOL ( NPPOL , NI , 1 ) =XPOL ( NPTLEF ( NPPOL ) + 1- I , NPPOL ) 

414  XCOL ( NPPOL , NI , 2 ) =XPOL ( NPTLEF ( NPPOL ) + 1- I , NPPOL ) 

415  XCOL ( NPPOL , NI , 3 ) =XPOL ( NPTLEF ( NPPOL ) -I , NPPOL ) 

416  XCOL(NPPOL,NI,4)=XPOL(NPTLEF(NPPOL)-I, NPPOL) 

417  YCOL ( NPPOL, NI, l)=YPOL( NPPOL) 
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418  YCOL ( NPPOL , NI , 2 ) =A*XCOL ( NPPOL , NX , 2 ) +B 

419  YCOL { NPPOL , NI , 3 ) =A*XCOL ( NPPOL , NI , 3 ) +B 

420  YCOL ( NPPOL, N I, 4 )=yPOL( NPPOL) 

421  C      

422  C     define  xrow  to  be  used 

42  3   C     ■ 

424  ZCOL ( NPPOL, NI , 1 ) =ZPOL ( NPTLEF ( NPPOL ) +1-1 , NPPOL ) 

425  DO  230  M1=1,NS0IL 

426  ZSOL(Ml,NPPOL,NI,l)=Z(Ml,NNJ+XDIFF(NPPOL) ,JJJ) 

427  230       CONTINUE 

428  XROW=XAPRIN+l-I 

429  YTESTE=YCOL(NPPOL,NI,2) 

430  CALL  COORYZ  (XROW, Y , Z , NY, YTESTE, ZFINAL, ALPHA) 

431  ZCOL ( NPPOL, NI, 2 )=ZFINAL 

432  DO  240  Ml=l,NSOIL 

433  ZSOL(Ml,NPPOL,NI,2)=ZFINAL 

434  240       CONTINUE 

43  5  IF  ( XROW. EQ.NXSTAR( NPPOL ) )  THEN 

436  ZCOL ( NPPOL , NI , 3 ) =ZPOL ( 1 , NPPOL ) 

437  DO  250  M1=1,NS0IL 

438  ZSOL (Ml , NPPOL, NI , 3 ) =ZPOL ( 1 , NPPOL ) 

439  250  CONTINUE 

440  ELSE 

441  YTESTE=ycOL(NPPOL,NI,3) 

442  CALL  COORYZ  (XROW-1 , Y, Z , NY, YTESTE, ZFINAL, ALPHA) 

443  ZCOL(NPPOL,NI,3)=ZFINAL 

444  DO  260  Ml=l,NSOIL 

445  ZSOL(Ml,NPPOL,NI,3)=ZFINAL 

446  260  CONTINUE 

447  END  IF 

448  ZCOL ( NPPOL , NI , 4 ) =ZPOL ( NPTLEF ( NPPOL ) -I , NPPOL ) 

449  DO  270  Ml=l,NSOIL 

450  ZSOL (Ml , NPPOL , NI , 4 ) =Z (Ml , NNJ-1+XDIFF ( NPPOL ) , JJJ ) 

451  270       CONTINUE 

452  280   CONTINUE 

453  C      

454  C     The  left  side  calculations  have  finished 

45  5   C      

456  RETURN 

457  END 

COLUML   Local  Symbols 

Name  Class    Type  Size    Offset 

NPPOL param  0006 

NSOIL param  000a 

XDIFF param  OOOe 

ZSOL. param  0012 

ZPOL param  0016 

NPTLEF. param  ;  001a 

NCOLEF param  OOle 

ZCOL param  0022 

YCOL. param  0026 

XCOL param  002a 

YPOL param  002e 

XPOL param  0032 
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COLUML   Local  Symbols 
Name 


Class 


Type 


Size 


NXPOL param 

NXSTAR param 

XIPOL param 

XAPRIN param 

Z param 

Y param 

X param 

NYPOL param 

NYSTAR param 

YPA2 param 

YPAl param 

A local 

B local 

ZFINAL local 

I local 

J local 

JJJl local 

XROW local 

II local 

NNJl local 

NI local 

JJJ local 

YTESTE local 

NNJ local 

ALPHA local 

NY local 

NNN local 

XTESl local 

XTES2 local 

YTESl local 

YTES2 local 

Ml local 


REAL*4 

REAL*4 

REAL*4 

INTEGER*4 

INTEGER*4 

INTEGER*4 

INTEGER*4 

INTEGER*4 

INTEGER*4 

INTEGER*4 

INTEGER*4 

REAL* 4 

INTEGER*4 

REAL* 4 

INTEGER*4 

INTEGER*4 

REAL*4 

REAL* 4 

REAL* 4 

REAL*4 

INTEGER*4 


e 

Offset 

0036 

003a 

003e 

0042 

0046 

004a 

004e 

0052 

0056 

005a 

OOSe 

4 

0000 

4 

0004 

4 

0008 

4 

000c 

4 

0010 

4 

0014 

4 

0018 

4 

001c 

4 

0020 

4 

0024 

4 

0028 

4 

002c 

4 

0030 

4 

0034 

4 

0038 

4 

003c 

4 

0040 

4 

0044 

4 

0048 

4 

004c 

4 

0050 

Symbolic  Constant 


Type 


MCOORD INTEGER*4 

MSOIL INTEGER*4 

NUMCOL INTEGER*4 

NCORN INTEGER*4 

MAXSUR INTEGER*4 


Value 


25 
5 

10 

4 

2000 


Global  Symbols 
Name 


Class 


Type 


COLUML . 
COORYZ. 


Code  size  =  2e5e  (11870) 
Data  size  =  0000  (0) 


FSUERT   *** 
extern   *** 


Size    Offset 

***     0000 
*  *  *      *  *  * 
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Bss  size   =  0054  (84) 
No  errors  detected 
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1  Stitle: 'PCSTBL3D  v2 . 0 ' 

2  Ssubtitle: 'Left  Side  Columns' 

3  C  This  subroutine  calculates  cordinates  of  colulmns  for  the  right  side 

4  c 

5  SUBROUTINE  COLUMR  ( YPAl , YPA2 , NYSTAR, NYPOL, NPPOL, X, Y, Z , XAPRIN, 

6  IXFPOL , NXSTAR , NXPOL , XPOL , YPOL , ZPOL , XCOL , YCOL , ZCOL , NCOLEF , NCORIG , 

7  2NPTLEF,NPTRIG,NXEND, ZSOL, XDIFF,NSOIL) 

8  $include: 'CURRENTF.INC 

*****    Begin    listing    of:    CUFIRENTF.  INC 

1  * 

2  *=========================  Prologue  =================================== 

3  * 

4  *  Purpose: 

5  *     Include  file  with  parameter  declaration  for  the  program  PCSTL3D 

6  * 

7  *  History: 

8  *     Version         Programmer     Date  Description 

9  *     

10  *     1.0  G.Moshkovich  created 

11  * 

12  *  IN  args/commons  Units  Description 

13  *  

14  * 

15  *  OUT  args/commons  Units  Description 

16  * 

17  * 

18  *  INOUT  args/commons        Units  Description 

19  * 

20  * 

21  *  Processing: 

22  *     none 

23  * 

24  *  Special  Requirements: 
2  5  *     none 

26  * 

27  * Include  files  

28  * Constant  declarations  

29  integer  MCOORD,  MSOIL,  NUMCOL,  NCORN 
30 

31  parameter  (MCOORD  =25,  MSOIL  =5) 

32  parameter  (NUMCOL  =  10,  NCORN  =  4) 

33  PARAMETER  (MAXSUR=2000 ) 
34 

35  * MCOORD  -  maximum  number  of  points  in  each  direction 

36  * MSOIL  -   maximum  number  of  soil  layers 

37  * NUMCOL  -  maximum  number  of  generated  columns 

38  * NCORN  -  number  of  nods  for  each  column  (do  not  change) 

39 

40  * Argument  declarations 

41  * Global/External  declarations 

42  * Local  declarations  


43 
44 
45 

*****  End  listing  of:  CURRENTF.INC 

9  DIMENSION  X (MCOORD),  Y (MCOORD),  Z (MSOIL, MCOORD , MCOORD ) , 

10  IXFPOL ( MCOORD ) ,  NXPOL ( MCOORD ) ,  NXSTAR ( MCOORD ) ,  NXEND ( MCOORD ) , 

11  2 XPOL (MCOORD, MCOORD ) ,  ZPOL (MCOORD , MCOORD ),  YPOL (MCOORD ) , 
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12  3XC0L ( MCOORD , -NUMCOL : NUMCOL , NCORN ) ,  YCOL ( MCOORD , -NUMCOL : NUMCOL , 

13  4NC0RN ) ,  ZCOL ( MCOORD , -NUMCOL : NUMCOL , NCORN ) ,  NCOLEF ( MCOORD ) , 

14  5NPTLEF ( MCOORD ) ,  NCORIG (MCOORD ) ,  NPTRIG (MCOORD ) ,  ZSOL (MSOIL, MCOORD 

15  6-NUMCOL: NUMCOL, NCORN) 

16  INTEGER  XAPRIN,XROW,XDIFF (MCOORD) 

17  XPOL(l,NYPOL)=X(XAPRIN) 

18  ZPOL(l,NYPOL)=ZCOL(NPPOL,-l,2) 

19  NXPOL(NYPOL)=l 

20  C  

21  C  PART  4  -  1st  SERIES  OF  COLUMNS  -  RIGHT  SIDE 

22  C  

23  YTES1=YPA1 

24  XTES1=X(XAPRIN) 

25  YTES2=Y(NYSTAR) 

26  XTES2=XFPOL(2) 

27  A=(YTES1-YTES2)/ (XTES1-XTES2) 

28  B=YTES1-A*XTES1 

29  C  

30  C  number  of  columns 

31  C  

32  NC0RIG(1)=NXEND(2)-XAPRIN+1 

33  C  

34  C  number  of  points 

35  C  

36  NPTLEF(2)=(XAPRIN-NXSTAR(2)+2) 

37  NPTRIG(2)=NC0RIG(1)+1 

38  C  

39  C  transfer  coordinates 

40  C  

41  DO  30  I=l,NCORIG(l) 

42  NI=I 

43  XC0L(1,NI, l)=XPOL(NPtLEF(2)+I,2) 

44  XCOL ( 1 , NI , 2 ) =XPOL ( NPTLEF ( 2 ) +1 , 2 ) 

45  XCOL ( 1 , NI , 3 ) =XPOL ( NPTLEF ( 2 ) -l+I , 2 ) 

46  XCOL ( 1 , NI , 4 ) =XPOL { NPTLEF ( 2 ) -l  +  I ,  2 ) 

47  YC0L(1,NI,1)=A*XC0L(1,NI,1)+B 

48  YC0L(1,NI,2)=Y(NYSTAR) 

49  YCOL(l,NI,3)=Y(NYSTAR) 

50  YCOL(l,NI,4)=A*XCOL(l,NI,4)+B 

51  C  

52  C  define  xrow  to  be  used 

53  C  

54  XROW=XAPRIN+I 

55  YTESTE=YC0L(1,NI, 1) 

56  CALL  COORYZ  (XROW, Y, Z , NY, YTESTE, ZFINAL, ALPHA) 

57  ZCOL{l,NI,l)=ZFINAL 

58  ZCOL ( 1 , NI , 2 ) =ZPOL ( NPTLEF ( 2 ) +1 , 2 ) 

59  ZCOL ( 1 , NI , 3 ) =ZPOL (NPTLEF ( 2 ) -l+I , 2 ) 

60  DO  10  Ml=l,NSOIL 

61  NNN=NPTLEF(2)+I 

62  ZSOL(Ml, 1,NI, l)=ZCOL(l,NI,l) 

63  ZSOL (Ml, 1,NI,2)=Z(M1,NNN+XDIFF(2) ,NYSTAR) 

64  ZSOL(Ml, 1,NI,3)=Z(M1,NNN-1+XDIFF(2) ,NYSTAR) 

65  10  CONTINUE 

66  YTESTE=YC0L(1,NI,4) 

67  CALL  COORYZ  ( XROW-1 , Y , Z , NY , YTESTE, ZFINAL, ALPHA) 

68  ZCOL(l,NI,4)=ZFINAL 

69  DO  20  Ml=l,NSOIL 
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ZSOL(Ml,l,NI,4)=ZCOL(l,NI,4) 
CONTINUE 
CONTINUE 

Part  5  -  FOR  ALL  NEXT  SERIES  OF  COLUMNS  -  RIGHT  SIDE 
(  2nd  to  nypol-2  ) 

DO  210  J=2, NYPOL-2 

NCOLEF ( J ) = ( XAPRIN-NXSTAR ( J ) +1 ) 
NCOLEF ( J+1 ) = ( XAPRIN-NXSTAR ( J+1 ) +1 ) 
NPTLEF ( J ) = { XAPRIN-NXSTAR ( J ) +2 ) 
NPTLEF ( J+1 ) = ( XAPRIN-NXSTAR ( J+1 ) +2 ) 

check  the  number  of  points  of  the  ith  and  the  i+1  th 

NCORIG(J)=-(XAPRIN-NXEND(J) )+l 
NCORIG ( J+1 ) =- ( XAPRIN-NXEND ( J+1 ) ) +1 

A)  — >  if  number  of  points  of  j+1  >  than  j  < 

IF  (NCORIG ( J+1 ) .GT. NCORIG (J) )  THEN 

number  of  POINTS 


70 

71 

20 

72 

30 

73 

C 

74 

C 

75 

C 

76 

C 

77 

78 

79 

80 

81 

82 

c 

83 

c 

84 

c 

85 

86 

87 

c 

88 

c 

89 

c 

90 

91 

c 

92 

c 

93 

c 

94 

95 

96 

c 

97 

c 

98 

c 

99 

100 

101 

102 

103 

104 

105 

c 

106 

c 

107 

c 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

NPTRIG ( J ) =NCORIG ( J ) +1 
NPTRIG ( J+1 ) =NCORIG ( J+1 ) +1 


calculate  line  that  connects  extremities 


YTES1=YP0L(J+1) 

XTES1=XP0L(NXP0L( J+1) , J+1) 

YTES2=YP0L(J) 

XTES2=XPOL(NXPOL{ J) , J) 

A= ( YTES1-YTES2 ) / ( XTES1-XTES2 ) 

B=YTES1-A*XTES1 


transfer  coordinates 


DO  100  II=1,NC0RIG(J+1) 
NI  =  II 

NNJ=NPTLEF( J)+II 
NNJ1=NPTLEF(J+1)+II 
JJJ=NYSTAR+J-2 
JJJl=NYSTAR+J+l-2 

XCOL ( J , NI , 1 ) =XPOL ( NPTLEF ( J+1 ) +1 I , J+1 ) 
XCOL ( J , NI , 2 ) =XPOL ( NPTLEF ( J+1 ) +1 I , J+1 ) 
XCOL ( J , NI , 3 ) =XPOL ( NPTLEF ( J+1 ) -l+I I , J+1 ) 
XCOL ( J , NI , 4 ) =XPOL ( NPTLEF ( J+1 ) -l+I I , J+1 ) 
IF  (II.LE.NCORIG(J)-l)  THEN 

YCOL ( J , NI , 1 ) =YPOL ( J ) 

YCOL ( J , NI , 2 ) =YPOL ( J+1 ) 

YCOL ( J , NI , 3 ) =YPOL ( J+1 ) 

YCOL ( J , NI , 4 ) =YPOL ( J ) 
ELSE 

YC0L(J,NI,1)=A*XC0L(J,NI, 1 ) +B 

YCOL ( J , NI , 2 ) =YPOL ( J+1 ) 

YCOL ( J , NI , 3 ) =YPOL ( J+1 ) 

IF  (II.EQ.NCORIG( J) )  THEN 
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128  YCOL(J,NI,4)=YPOL(J) 

129  ELSE 

130  YCOL ( J , NI , 4 ) =A*XCOL { J , NI , 4 ) +B 

131  END  IF 

132  END  IF 

133  C  

134  C  define  xrow  to  be  used 

135  C  

136  IF  (II.LE.NCORIG(J)-l)  THEN 

137  ZCOL(J,NI,l)=ZPOL(NPTLEF(J)+II,J) 

138  ZCOL(J,NI,2)=ZPOL(NPTLEF(J+l)+II, J+1) 

139  ZCOL ( J, NI , 3 ) =ZPOL { NPTLEF ( J+1 ) -l+II , J+1 ) 

140  ZCOL ( J , NI , 4 ) =ZPOL ( NPTLEF { J ) -l+II , J ) 

141  DO  40  Ml=l,NSOIL 

142  ZSOL(Ml,J,NI,l)=Z(Ml,NNJ+XDIFF{J) , JJJ) 

143  ZSOL(Ml, J,NI,2)=Z(M1,NNJ1+XDIFF(J+1) ,JJJ1) 

144  ZSOL{Ml, J,NI,3)=Z(M1,NNJ1-1+XDIFF{J+1) , JJJl) 

145  ZSOL(Ml,J,NI,4)=Z(Ml,NNJ-l+XDIFF(J) , JJJ) 

146  40  CONTINUE 

147  ELSE 

148  IF  {II.EQ.NCORIG( J) )  THEN 

149  ZCOL( J,NI,4)=ZCOL(J,NI-l,l) 

150  DO  50  Ml=l,NSOIL 

151  ZSOL(Ml,  J,NI,4)=^ZSOL(Ml,  J,NI-1,1) 

152  50  CONTINUE 

153  ELSE 

154  XR0W=XAPRIN-1+II 

155  •   YTESTE=yCOL( J,NI,4) 

156  CALL  COORYZ  ( XROW, Y, Z , NY , YTESTE , ZFINAL, ALPHA) 

157  ZCOL( J,NI,4)=ZFINAL 

158  DO  60  Ml=l,NSOIL 

159  ZSOL{Ml, J,NI,4)=ZFINAL 

160  60  CONTINUE 

161  END  IF 

162  ZCOL ( J , NI , 2 ) =  ZPOL ( NPTRIG ( J+1 ) + 1 1 , J+ 1 ) 

163  ZCOL ( J, NI, 3 )=ZPOL( NPTRIG (J+1) -l+II, J+1) 

164  DO  70  M1=1,NS0IL 

165  ZSOL(Ml,J,NI,2)=Z(Ml,NNJl+XDIFF(J+l) , JJJl) 

166  ZSOL(Ml, J,NI,3)=Z(M1,NNJ1-1+XDIFF(J+1) , JJJl) 

167  70  CONTINUE 

168  XR0W=XAPRIN-1+II 

169  IF  (XR0W.EQ.NXEND(J+1) )  THEN 

170  ZCOL(J,NI,l)=ZPOL(NXPOL( J+1)  ,  J+1) 

171  DO  80  M1=1,NS0IL 

172  ZS0L(M1, J,NI,l)=ZPOL(NXPOL(J+l) ,J+1) 

173  80  CONTINUE 

174  ELSE 

175  YTESTE=YC0L(J,NI,1) 

176  CALL  COORYZ  (XROW+1 , Y , Z , NY, YTESTE, ZFINAL, 

177  1  ALPHA) 

178  '  ■  ZCOL(J,NI,l)=ZFINAL 

179  DO  90  Ml=l,NSOIL 

180  ZSOL(Ml,J,NI,l)=ZFINAL 

181  90  CONTINUE 

182  END  IF 

183  END  IF 

184  100  CONTINUE 

185  NCORIG(J)=-(XAPRIN-NXEND(J+l) ) +1 
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NCOLEF ( J ) =XAPRIN-NXSTAR ( J+ 1 ) +1 
GO  TO  210 

Here  ends  the  condition  J+1  >  j 

END  IF 
B)  — >  if  number  of  points  of  j+1  =  number  of  points  of  j 

IF  (NC0RIG(J+1) .EQ.NCORIG(J) )  THEN 
number  of  points 


186 

187 

188 

C 

189 

C 

190 

C 

191 

192 

C 

193 

C 

194 

c 

195 

196 

c 

197 

c 

198 

c 

199 

200 

201 

c 

202 

c 

203 

c 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

110 

233 

120 

234 

c 

235 

c 

236 

c 

237 

238 

c 

239 

c 

240 

c 

241 

242 

c 

243 

c 

NPTRIG ( J ) =NCORIG ( J ) + 1 
NPTRIG ( J+1 ) =NCORIG ( J+1 ) +1 


transfer  coordinates 


DO  120  11=1, NCORIG( J+1) 
NI  =  II 

NNJ=NPTLEF(J)+II 
NNJ1=NPTLEF ( J+1 ) +1 I 
JJJ=NYSTAR+J-2 
JJJl=NYSTAR+J+l-2 


XCOL(J,NI,l 
XC0L(J,NI,2 
XCOL(J,NI,3 
XCOL(J,NI,4 
YCOL( J,NI, 1 
YCOL( J,NI,2 
YCOL( J,NI,3 
YC0L(J,NI,4 
ZC0L(J,NI,1 
ZC0L(J,NI,2 
ZCOL{J,NI,3 
ZCOL(J,NI,4 


=XPOL ( NPTLEF ( J ) + I I , J ) 
=XPOL (NPTLEF ( J+1 ) +11 , J+1 ) 
=XPOL (NPTLEF ( J+1 ) -l+I I , J+1 ) 
=XPOL ( NPTLEF ( J ) -l+I I , J ) 
l=YPOL(J) 
l=YPOL(J+l) 
|=YPOL(J+l) 

=YPOL(J) 
I =ZPOL ( NPTLEF ( J ) +1 I , J ) 
I  =ZPOL (NPTLEF ( J+1 ) +11 , J+1 ) 
I  =ZPOL (NPTLEF ( J+1 ) -l  +  II , J+1 ) 
i=ZPOL(NPTLEF(J)-l+II, J) 
DO  110  M1=1,NS0IL 

IF  (II.NE.NCORIG(J+l) )  THEN 

ZSOL ( Ml , J , NI , 1 ) =Z ( Ml , NN J+XD I FF ( J ) , J J J ) 
ZSOL ( Ml , J , NI , 2 ) =Z (Ml , NNJl+XDIFF ( J+1 ) , JJJl ) 
ELSE 

ZS0L(M1, J,NI, 1)=ZC0L(J,NI, 1) 
ZSOL(Ml, J,NI,2)=ZCOL(J,NI,2) 
END  IF 

ZS0L(M1,J,NI,3)=Z(M1,NNJ1-1+XDIFF(J+1) , JJJl) 
ZSOL ( Ml , J , NI , 4 ) =Z ( Ml , NN J- 1+XD IFF ( J ) , JJ J ) 
CONTINUE 
CONTINUE 

Here  ends  the  condition  j+1  =  j 

END  IF 
A)  — >  if  number  of  points  of  j+1  <  than  j  < 

IF  (NCORIG(J+l) .LT.NCORIG(J) )  THEN 
number  of  points 
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244  C  

245  NPTRIG{J)=NCORIG(J)+l 

246  NPTRIG(J+l)=NCORIG(J+l)+l 

247  C      ■ 

248  C  calculate  line  that  connects  extremities 

249  C  

250  yTESl=YPOL(J+l) 

251  XTESl=XPOL(NXPOL(J+l) ,J+1) 

252  YTES2=YPOL{J) 

253  XTES2=XPOL{NXPOL(J) , J) 

254  A= ( YTES1-YTES2 ) / ( XTES1-XTES2 ) 

255  B=YTES1-A*XTES1 

2  56  C      

257  C     transfer  coordinates 

2  58  C      

259  DO  200  II=1,NC0RIG(J) 

260  NI=II 

261  NNJ=NPTLEF(J)+II 

262  NNJ1=NPTLEF(J+1)+II 

263  JJJ=NYSTAR+J-2 

264  JJJl=NYSTAR+J+l-2 

265  XCOL ( J , NX , 1 ) =XPOL ( NPTLEF { J ) +1 I , J ) 

266  •  XC0L( J,NI,2)=XPOL(NPTLEF(J)+II, J) 

267  XCOL ( J , N I , 3 ) =XPOL ( NPTLEF ( J ) -1 + I I , J ) 
2  68  XCOL { J , NI , 4 ) =XPOL { NPTLEF ( J ) -l+II , J ) 

269  IF  (II.LE.NCORIG(J+l)-l)  THEN 

270  YC0L(J,NI,1)=YP0L(J) 

271  YCOL( J,NI,2)=YPOL(J+l) 

272  YCOL(J,NI,3)=YPOL(J+l) 

273  YCOL(J,NI,4)=YPOL(J) 

274  ELSE 

27  5  YCOL(J,NI,4)=YPOL(J) 

276  IF  (II.EQ.NC0RIG(J+1) )  THEN 

277  YCOL(J,NI,3)=YPOL(J+l) 

278  ELSE 

279  YCOL(J,NI,3)=A*XCOL(J,NI,3)+B 

280  END  IF 

281  YCOL(J,NI,2)=A*XCOL(J,NI,2)+B 

282  YCOL( J,NI,1)=YP0L(J) 

283  END  IF 

284  C  

285  C  define  xrow  to  be  used 

286  C  

287  IF  (II.LE.NC0RIG(J+1)-1)  THEN 

2  88  ZCOL(J,NI,l)=ZPOL(NPTLEF(J)+II, J) 

289  ZCOL ( J , NI , 2 ) =ZPOL ( NPTLEF ( J+1 ) +1 I , J+1 ) 

290  ZCOL(J,NI,3)=ZPOL(NPTLEF( J+1) -l+II, J+1) 

291  ZCOL( J,NI,4)=ZPOL(NPTLEF( J)-1+II, J) 

292  DO  130  Ml=l,NSOIL 

293  ZS0L(M1, J,NI,1)=Z(M1,NNJ+XDIFF(J) , JJJ) 

294  ZSOL(Ml, J,NI,2)=Z(M1,NNJ1+XDIFF( J+1) , JJJl) 

295  ZSOL(Ml, J,NI,3)=Z(M1,NNJ1-1+XDIFF( J+1) , JJJl) 

296  ZSOL(Ml, J,NI,4)=Z(M1,NNJ-1+XDIFF( J) , JJJ) 

297  130  CONTINUE 

298  -  ELSE 

299  ZCOL ( J , NI , 4 ) =ZPOL ( NPTLEF ( J ) -l  +  I I ,  J ) 

300  DO  140  M1=1,NS0IL 

301  ZSOL(Ml, J,NI,4)=Z(M1,NNJ-1+XDIFF( J) , JJJ) 
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302  140  CONTINUE 

303  XROW=XAPRIN-l+II 

304  IF  (II.EQ.NCORIG( J+1) )  THEN 

305  ZCOL(J,NI,3)=ZCOL( J,NI-1,2) 

306  '^  DO  150  Ml=l,NSOIL 

307  ZSOL{Ml,J,NI,3)=ZSOL(Ml,J,NI-l,2) 

308  150  CONTINUE 

309  ELSE 

310  YTESTE=YCOL(J,NI,3) 

311  CALL  COORYZ  (XROW, Y, Z , NY, YTESTE , ZFINAL, ALPHA) 

312  ZC0L(J,NI,3)=ZFINAL 

313  DO  150  Ml=l,NSOIL 

314  ZSOL(Ml, J,NI,3)=ZFINAL 

315  160  CONTINUE 

316  END  IF 

317  '  IF  (XROW.EQ.NXEND(J) )  THEN 

318  ZCOL( J,NI,2)=ZPOL(NXPOL(J) , J) 

319  DO  170  Ml=l,NSOIL 

320  ZSOL(Ml, J,NI,2)=ZPOL(NXPOL(J) , J) 

321  170  CONTINUE 

322  ELSE 

323  YTESTE=YC0L(J,NI,2) 

324  CALL  COORYZ  (XROW+1 , Y , Z , NY , YTESTE, ZFINAL, 

325  1  ALPHA) 

326  ZC0L(J,NI,2)=ZFINAL 

327  DO  180  M1=1,NS0IL 

.  328  ZSOL(Ml,J,NI,2)=ZFINAL 

329  180  CONTINUE 

330  END  IF 

331  END  IF 

332  ZCOL ( J , NI , 1 ) =ZPOL { NPTLEF ( J ) +1 I , J ) 

333  DO  190  Ml=l,NSOIL 

334  ZSOL(Ml, J,NI,1)=Z(M1,NNJ+XDIFF( J) , JJJ) 

335  190  CONTINUE 

336  200  CONTINUE 

33  7  C      

338  C  Here  ends  the  condition  J+1  <  j 

339  C  

340  END  IF 

341  C  

342  C  This  label  9  ends  the  process  for  the  right  side 

343  C  

344  210   CONTINUE 

345  C      ■ 

346  C  PART  6  -  LAST  SERIES  OF  COLUMNS  -  RIGHT  SIDE 

347  C  

348  YTES1=YPA2 

349  XTES1=X(XAPRIN) 

350  YTES2=YPOL(NYPOL-l) 

351  XTES2=XPOL(NXPOL(NYPOL-l) ,NYPOL-l) 

352  A= ( YTES1-YTES2 ) / (XTES1-XTES2 ) 

353  B=YTES1-A*XTES1 

3  54  C      

355  C  number  of  columns 

356  C  

357  NCORIG(NYPOL-l)=-(XAPRIN-NXEND(NYPOL-l) )+l 

3  58  C      

359  C      number  of  points 
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NPTRIG ( NYPOL-1 ) =NCORIG ( NYPOL-l ) +1 

NPPOL=NYPOL-l 

NPTLEF ( NPPOL ) = ( XAPRIN-NXSTAR ( NPPOL ) +2 ) 

transfer  coordinates 

DO  270  1=1, NCORIG( NPPOL) 
NI  =  I 

NNJ=NPTLEF ( NPPOL ) +1 
JJJ=NySTAR+NPPOL-2 

XCOL { NPPOL , NI , 1 ) =XPOL ( NPTLEF { NPPOL ) +1 , NPPOL ) 
XCOL { NPPOL , NI , 2 ) =XPOL { NPTLEF ( NPPOL ) +1 , NPPOL ) 
XCOL ( NPPOL , NI , 3 ) =XPOL ( NPTLEF ( NPPOL ) -l+I , NPPOL ) 
XCOL ( NPPOL , NI , 4 ) =XPOL ( NPTLEF ( NPPOL ) -l+I , NPPOL ) 
YCOL ( NPPOL , NI , 1 ) =YPOL ( NPPOL ) 
YCOL ( NPPOL , NI , 2 ) =A*XCOL ( NPPOL , NI , 2 ) +B 
YCOL ( NPPOL , NI , 3 ) =A*XCOL ( NPPOL , NI , 3 ) +B 
YCOL ( NPPOL , NI , 4 ) =YPOL ( NPPOL ) 

define  xrow  to  be  used 

ZCOL ( NPPOL , NI , 4 ) =ZPOL ( NPTLEF ( NPPOL ) +1- 1 , NPPOL ) 
DO  220  Ml=l,NSOIL 

ZSOL ( Ml , NPPOL , NI , 4 ) =Z { Ml , NNJ-1+XDIFF ( NPPOL ) , JJJ ) 
CONTINUE 
XROW=XAPRIN+I-l 
YTESTE=YCOL ( NPPOL , NI , 3 ) 

CALL  COORYZ  (XROW, Y , Z , NY, YTESTE, ZFINAL, ALPHA) 
ZCOL ( NPPOL, NI , 3 ) =ZFINAL 
DO  230  Ml=l,NSOIL 

ZSOL (Ml , NPPOL , NI , 3 ) =ZFINAL 
CONTINUE 
IF  ( XROW. EQ.NXEND( NPPOL ) )  THEN 

ZCOL  ( NPPOL ,  NI ,  2  )  =ZPOL  ( NXPOL  ( NPPOL )  ,  NPPOL  ) 

DO  240  M1=1,NS0IL 

ZSOL ( Ml , NPPOL , NI , 2 ) =ZPOL ( NXPOL ( NPPOL ) , NPPOL ) 

CONTINUE 
ELSE 

YTESTE=YCOL ( NPPOL , NI , 2 ) 

CALL  COORYZ  (XROW+1 , Y, Z , NY , YTESTE, ZFINAL, ALPHA) 

ZCOL ( NPPOL, NI , 2 ) =ZFINAL 

DO  250  Ml=l,NSOIL 

ZSOL ( Ml , NPPOL, NI , 2 ) =ZFINAL 

CONTINUE 
END  IF 

ZCOL ( NPPOL , NI , 1 ) =ZPOL ( NPTLEF ( NPPOL ) + I , NPPOL ) 
DO  260  Ml=l,NSOIL 

ZSOL (Ml , NPPOL, NI , 1 ) =Z (Ml , NNJ+XDIFF ( NPPOL ) , JJJ ) 
CONTINUE 
CONTINUE 
RETURN 
END 


360 

C 

361 

362 

363 

364 

c 

365 

c 

366 

c 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

c 

380 

c 

381 

c 

382 

383 

384 

385 

220 

386 

387 

388 

389 

390 

391 

392 

230 

393 

394 

395 

396 

397 

240 

398 

399 

400 

401 

402 

403 

404 

250 

405 

406 

407 

408 

409 

260 

410 

270 

411 

412 
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Class 


NSOIL param 

XDIFF param 

ZSOL param 

NXEND param 

NPTRIG param 

NPTLEF param 

NCORIG param 

NCOLEF param 

ZCOL param 

YCOL param 

XCOL param 

ZPOL param 

ypOL param 

XPOL param 

NXPOL param 

NXSTAR param 

XFPOL param 

XAPRIN param 

Z param 

y param 

X param 

NPPOL param 

NYPOL param 

NYSTAR param 

YPA2 param 

YPAl param 

A local 

B local 

ZFINAL local 

I local 

J local 

JJJl local 

XROW local 

II local 

NNJl local 

NI local 

JJJ local 

YTESTE local 

NNJ local 

ALPHA local 

NY local 

NNN local 

XTESl local 

XTES2 local 

YTESl local 

YTES2 local 

MI local 


Type 


REAL* 4 

REAL* 4 

REAL*4 

INTEGER*4 

INTEGER*4 

INTEGER*4 

INTEGER*4 

INTEGER*4 

INTEGER*4 

INTEGER*4 

INTEGER*4 

REAL* 4 

INTEGER*4 

REAL* 4 

INTEGER*4 

INTEGER*4 

REAL* 4 

REAL* 4 

REAL*4 

REAL* 4 

INTEGER*4 


Size 


e 

Offset 

0006 

000a 

OOOe 

0012 

0016 

001a 

OOle 

0022 

0026 

002a 

002e 

0032 

0036 

003a 

003e 

0042 

0046 

004a 

004e 

0052 

0056 

005a 

005e 

0062 

0066 

006a 

4 

0000 

4 

0004 

4 

0008 

4 

000c 

4 

0010 

4 

0014 

4 

0018 

4 

001c 

4 

0020 

4 

0024 

4 

0028 

4 

002c 

4 

0030 

4 

0034 

4 

0038 

4 

003c 

4 

0040 

4 

0044 

4 

0048 

4 

004c 

4 

0050 

Symbolic  Constant 


Type 


MCOORD INTEGER*4 

MSOIL INTEGER*4 

NUMCOL INTEGER*4 


Value 


25 

5 

10 
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Symbolic  Constant  Type 

NCORN INTEGER*  4 

MAXSUR INTEGER*4 

Global  Symbols 

Name  Class    Type 

COLUMR. FSUBRT   *** 

COORYZ extern   *** 

Code  size  =  2e94  (11924) 
Data  size  =  0000  (0) 
Bss  size   =  0054  (84) 

No  errors  detected 


Value 


4 
2000 


Size    Offset 

***     0000 
***      *** 
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1  SUBROUTINE  COORXZ  ( YFIXED , X, Z , NVERT, XTESTE, ZTESTE) 

2  C  { input }{ output } 

3  Sinclude: 'CURRENTF.INC 

*****  Begin  listing  of:  CURRENTF.INC 

1  * 

3  * 

4  *  Purpose: 

5  *     Include  file  with  parameter  declaration  for  the  program  PCSTL3D 

6  * 

7  *  History: 

8  *     Version         Programmer     Date  Description 

9  *     

10  *     1.0  G.Moshkovich  created 

11  * 

12  *  IN  args/commons  Units  Description 

13  * 

14  * 

15  *  OUT  args/commons          Units            Description 
15  *  

17  * 

18  *  INOUT  args/commons        Units  Description 

19  * 

20  * 

21  *  Processing: 

22  *     none 

23  * 

24  *  Special  Requirements: 

25  *     none 

26  * 

27  * Include  files 

28  * Constant  declarations 

29  integer  MCOORD,  MSOIL,  NUMCOL,  NCORN 
30 

31  parameter  (MCOORD  =  25,  MSOIL  =  5) 

32  parameter  (NUMCOL  =  10,  NCORN  =4) 

33  PARAMETER  (MAXSUR=2000 ) 
34 

35  * MCOORD  -  maximum  number  of  points  in  each  direction 

36  * MSOIL  -   maximum  number  of  soil  layers 

37  * NUMCOL  -  maximum  number  of  generated  columns 

38  * NCORN  -  number  of  nods  for  each  column  (do  not  change) 

39 

40  * Argument  declarations 

41  * Global/External  declarations 

42  * Local  declarations 


43 
44 
45 

*****  End  listing  of:  CURRENTF.INC 

4  C this  routine  calculates  the  "z"  coordinate  of  a  given  xteste... 

5  C on  the  surface  of  the  ground 

6  C the  value  of  y  is  fixed  and  equals  yfixed 

7  INTEGER  YFIXED, YY 

8  REAL  X(MCOORD) ,Z(MSOIL,MCOORD, MCOORD) 

9  YY=YFIXED 

10  DO  10  J=l, NVERT 

11  IF  (X( J) .GT.YTESTE)  THEN 
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2 


12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 


10 


ALPHA={Z(l,J,YY)-Z(l,J-l,yy) )/(X(J)-X(J-l) ) 
ZTESTE=Z ( 1 , J-1 , YY ) +ALPHA* ( XTESTE-X ( J-1 ) ) 
RETURN 
ELSE 

IF  (X( J) .EQ.XTESTE)  THEN 
ZTESTE=Z(1, J,YY) 

ALPHA=(Z(1, J+l,YY)-Z(l,J,yy) )/(X(J+l)-X{J) ) 
RETURN 
ELSE  ■ 

END  IF 
END  IF 
CONTINUE 
END 


*****  coORXZ.FOR(24)  :  warning  F4998:  YTESTE  %    variable  used  but  not  defined 


COORXZ   Local  Symbols 

Name  Class    Type 

ZTESTE param 

XTESTE param 

NVERT .  param 

Z param 

X param 

YFIXED param 

J  . local    INTEGER*4 

YTESTE local    REAL*4 

ALPHA local    REAL*4 

YY.  . local    INTEGER*4 

Symbolic  Constant  Type 

MCOORD INTEGER*4 

MSOIL INTEGER*4 

NUMCOL INTEGER*4 

NCORN INTEGER*4 

MAXSUR INTEGER*4 

Global  Symbols 

Name  Class    Type 

COORXZ FSUBRT   *** 

Code  size  =  018d  (397) 
Data  size  =  0000  (0) 
Bss  size   =  0010  (16) 

No  errors  detected 


Size 


,e 

Offset 

0006 

000a 

OOOe 

0012 

0016 

001a 

4 

0000 

4 

0004 

4 

0008 

4 

000c 

Value 


25 
5 

10 

4 

2000 


Size    Offset 
***     0000 
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1 


1 
2 
3 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 

4 
5 
6 
7 
8 
9 
10 
11 


SUBROUTINE  COORYZ  (XFIXED , Y, Z , NVERT, YTESTE , ZTESTE, ALPHA) 

C  { input }  { output } 

$ include: 'CURRENTF. INC 
*****  Begin  listing  of:  CURRENTF. INC 


Prologue 


*  Purpose: 

*  Include  file  with  parameter  declaration  for  the  program  PCSTL3D 


*  History: 

*  Version 


*  1.0 

* 

*  IN  args/commons 

*  

* 

*  OUT  args/commons 

*  

* 

*  INOUT  args/commons 


*  Processing: 

*  none 
* 

*  Special  Requirements: 

*  none 


Programmer 

G.Moshkovich 
Units 


Date 


Description 
created 
Description 


Units 


Units 


Description 
Description 


* Include  files 

* Constant  declarations 

integer  MCOORD,  MSOIL,  NUMCOL,  NCORN 

parameter  (MCOORD  =  25,  MSOIL  =  5) 
parameter  (NUMCOL  =  10,  NCORN  =  4) 
PARAMETER  (MAXSUR=2000 ) 


MCOORD 

MSOIL  - 
NUMCOL 
NCORN  - 


-  maximum  number  of  points  in  each  direction 
maximum  number  of  soil  layers 

-  maximum  number  of  generated  columns 

number  of  nods  for  each  column  (do  not  change) 


* Argument  declarations  

* Global/External  declarations 

* Local  declarations 


'***    End  listing  of:  CURRENTF. INC 

C this  routine  calculates  the  "z"  coordinate  of  a  given  yteste. 

C on  the  surface  of  the  ground 

C the  value  of  x  is  fixed  and  equals  xfixed 

INTEGER  XFIXED, XX 

REAL  Y ( MCOORD ) , Z ( MSO I L , MCOORD , MCOORD ) 

XX=XFIXED 

DO  10  J=l, NVERT 

IF  (Y( J) .GT. YTESTE)  THEN 
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12  ALPHA=(Z(1,XX, J)-Z(1,XX, J-1) ) / ( Y ( J) -Y ( J-1 ) ) 

13  ZTESTE=Z(1,XX, J-1)+ALPHA*(YTESTE-Y(J-1) ) 

14  RETURN 

15  ELSE 

16  IF  (Y( J) .EQ.YTESTE)  THEN 

17  ZTESTE=Z(1,XX, J) 

18  ALPHA={Z{1,XX, J+1)-Z{1,XX, J) ) / { Y ( J+1 ) -Y ( J) ) 

19  RETURN 

20  ELSE 

21  END  IF 

22  END  IF 

23  10    CONTINUE 

24  END 

COORYZ   Local  Symbols 

Name  Class    Type  Size 

ALPHA param 

ZTESTE param 

YTESTE param 

NVERT param 

Z param 

Y  .  .  .  . param 

XFIXED.  ..........  param 

J  local    INTEGER*4 

XX.  . local    INTEGER*4 

Symbolic  Constant  Type  Value 

MCOORD.  ....  INTEGER*4  25 

MSOIL INTEGER*4  5 

NUMCOL INTEGER*4  10 

NCORN INTEGER*4  4 

MAXSUR INTEGER*4  2000 


Global  Symbols 

Name  Class    Type  Size    Offset 

COORYZ FSUBRT   ***  ***     0000 

Code  size  =  OlcO  (448) 
Data  size  =  0000  (0) 
Bss  size   =  0008  (8) 

No  errors  detected 


e 

Offset 

0006 

000a 

OOOe 

0012 

0016 

001a 

OOle 

4 

0000 

4 

0004 

160 


"H 


PAGE 
04-12-91 
12:07:43 


Line#   Source  Line 
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Purpose: 

Include  file  with  parameter  declaration  for  the  program  PCSTL3D 


*  History: 

*  Version 

*     

*  1.0 
* 

*  IN  args/commons 
* 

* 

*  OUT  args/commons 

* 

* 

*  INOUT  args/commons 

* 

* 

*  Processing: 

*  none 


Special  Requirements: 
none 


Programmer 

G.Moshkovich 


Date 


Description 


created 


Units 


Units 


Units 


Description 


Description 


Description 


1  SUBROUTINE  CRITIC  (NYPOL, NXPOL, XPOL, YPOL, ZPOL, NXSTAR, NXEND , NSURF, 

2  1NSURFA,FS,NX,NY,X, Y, Z,NYSTAR,NYEND) 

3  Sinclude: 'CURRENTF.INC 

*****  Begin  listing  of:  CURRENTF.INC 

1   * 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 

*****  End  listing  of:  CURRENTF.INC 

4  DIMENSION  NXPOLl (NUMCOL,MCOORD ) ,  NYPOL 1 ( NUMCOL) ,  XPOLl (NUMCOL, 

5  IMCOORD , MCOORD ) ,  Y  POL 1 ( NUMCOL , MCOORD ) ,  Z  POL 1 ( NUMCOL , MCOORD , MCOORD ) 

6  2  NXSTAl (NUMCOL, MCOORD ) ,  NXEND 1 (NUMCOL, MCOORD ) ,  NXPOL (MCOORD ) , 

7  3NXSTAR ( MCOORD ) ,  NXEND (MCOORD ) ,  XPOL (MCOORD , MCOORD ) ,  YPOL (MCOORD ) , 

8  4 Z POL ( MCOORD, MCOO RD ) ,  FSl(NUMCOL),  X(MCOORD),  Y(MCOORD),  Z(MSOIL, 

9  5MCOORD , MCOORD ) ,  NYSTAl (NUMCOL) ,  NYENDl (NUMCOL) 

10  CHARACTER  NAMCRI*12 

11  INTEGER*4  DIMENl , DIMEN2 


* Include  files  

* ■ Constant  declarations 

integer  MCOORD,  MSOIL,  NUMCOL,  NCORN 


parameter 
parameter 
PARAMETER 


(MCOORD  =  25, 
(NUMCOL  =  10, 
(MAXSUR=2000) 


MSOIL 
NCORN 


MCOORD  -  maximum  number  of 
MSOIL  -  maximum  number  of 
NUMCOL  -  maximum  number  of 
NCORN  -  number  of  nods  for 


=  5) 
=  4) 


points  in  each  direction 

soil  layers 

generated  columns 

each  column  (do  not  change) 


* Argument  declarations  

* Global/External  declarations 

* Local  declarations  
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36 
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38 
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40 
41 
42 
43 
44 
45 
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10 


20 

30 
40 


50 


60 
70 


80 
90 


C 
C 
C 
C 


PARAMETER  (DIMENl=NUMCOL*MCOORD, DIMEN2=NUMCOL*MCOORD*MCOORD ) 


DATA 

DATA 

DATA 
10/ 

DATA 

DATA 
10/ 

DATA 

DATA 

DATA 

DATA 

DATA 

DO  80 
IF 


NYPOLl(I) ,I=1,NUMC0L)/NUMC0L*1/ 

(NXP0L1(I, J) ,I=1,NUMC0L) , J=l ,MCOORD ) /DIMEN1*1/ 

( (XP0L1(I, J,K) ,I=1,NUMC0L) , J=l,MCOORD) , K=l ,MCOORD ) /DIMEN2*0 

(YP0L1(I, J) , I=1,NUMC0L) , J=l , MCOORD ) /DIMEN1*0 . 0/ 

( (ZPOLl(I, J,K) ,I=l,NUMCOL) ,J=1, MCOORD) ,K=1 , MCOORD ) /DIMEN2*0 

(NXSTA1(I, J) ,I=l,NUMCOL) , J=l , MCOORD ) /DIMENl*!/ 
(NXEND1(I,J) ,I=1,NUMC0L) , J=l , MCOORD ) /DIMENl*!/ 
FSl ( I ), 1=1 , NUMCOL ) /NUMCOL* 1000000 . 0/ 
NYSTAl ( I ) , 1=1 , NUMCOL ) /NUMCOL* 1000000 . 0/ 
NYENDl ( I ) , 1=1 , NUMCOL ) /NUMCOL* 1000000 . 0/ 
1=1, NUMCOL 
( (FS.LE.FSl(I) ) .AND. (FS.GT.O) )  THEN 
DO  40  J=NUMCOL, 1+1,-1  ' 

FS1(J)=FS1(J-1) 
NYPOLl ( J ) =NYP0L1 ( J-1 ) 
NYSTAl ( J ) =NYSTA1 { J-1 ) 
NYENDl (J) =NYEND1 (J-1) 
DO  10  Jl=l, NYPOLl (J-1) 

NXPOLl( J, Jl)=NXPOLl ( J-1, Jl) 
YPOLl ( J , Jl ) =YP0L1 ( J-1 , Jl ) 
NXSTAl  (  J ,  Jl )  =NXSTA1  ( J- 1,,  Jl ) 
NXEND 1 ( J , Jl ) =NXEND 1 ( J- 1 , Jl ) 
CONTINUE 
DO  30  J2=l,NYPOLl(J-l) 

DO  20  Jl=l,NXPOLl( J-1, J2) 

XPOLl ( J , Jl , J2 ) =XPOLl ( J-1 , Jl , J2 ) 
ZPOLl(J, Jl, J2)=ZPOLl(J-l, Jl, J2) 
CONTINUE 
CONTINUE 
CONTINUE 
FS1(I)=FS 
NYPOLl(I)=NYPOL 
NYSTA1(I)=NYSTAR 
NYENDl ( I )=NYEND 
DO  50  Jl=l,NYPOL 

NXPOLl ( I , Jl ) =NXPOL ( Jl ) 
YPOLl ( I , Jl ) =YPOL ( Jl ) 
NXSTAl ( I , Jl ) =NXSTAR ( Jl ) 
NXEND 1 ( I , Jl ) =NXEND ( Jl ) 
CONTINUE 
DO  70  J2=l,NYPOL 

DO  60  J1=1,NXP0L( J2) 

XPOLl ( I , Jl , J2 ) =XPOL ( Jl , J2 ) 
ZPOLl ( I , Jl , J2 ) =ZPOL ( Jl , J2 ) 
CONTINUE 
CONTINUE 


exit 


loop 

GO  TO  90 

IF 


END 
CONTINUE 
CONTINUE 

write ( * , *  )  ' 
do  3  i=l, NUMCOL 
write ( * , * )  ' 
continue 


fs( 


fsl(i) 
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70  IF  (NSURF.EQ.NSURFA)  THEN 

71  C  

72  C  PRINT  DATA  OF  10  MOST  CRITICAL  SURFACES 

73  C  

74  WRITE  (2,190) 

75  DO  120  1=1,10 

7,6  WRITE  (2,200)  I 

77  "'  WRITE  (2,210) 

78  DO  110  J=1,NYP0L1(I) 

79  DO  100  J1=1,NXP0L1(I,J) 

80  WRITE  (2,220)  XPOLl ( I , Jl , J) , YPOLl ( I , J) , ZPOLl ( I , Jl 

81  1  J) 

82  100  CONTINUE 

83  110  CONTINUE 

84  WRITE  (2,230)  FSl(I) 

85  120  CONTINUE 

86  C  

87  C  STORE  DATA  OF  2  MOST  CRITICAL  SURFACE  TO  PLOT 

88  C  

89  WRITE  (*,*)  'Please  the  most  critical  surface  file  name:  ' 

90  READ  (*,'(a)')  NAMCRI 

91  OPEN  ( 3 , FILE=NAMCRI ) 

92  C  open(4, f ile='plotl0.dat' ) 

93  C  open( 5, f ile= ' aver .dat ' ) 

94  C for  i=  polygonal   1   (file  for  contour  plot) 

95  1  =  1 

96  WRITE  (3,*)  'PCSTBL3D  v2 . 0  Critical  Surface' 

97  WRITE  (3,*)  NX, NY 

98  DO  130  NNY=1,NYSTA1(I)-1 

99  DO  130  NNX=1,NX 

100  WRITE  (3,240)  X (NNX) , Y (NNY ) , Z ( 1 , NNX, NNY ) 

101  130  CONTINUE 

102  DO  170  NNY=2,NYPOLl(I)-l 

103  DO  140  NNX=1,NXSTA1(I,NNY)-1 

104  NYC=NYSTAl(I)+NNY-2 

105  WRITE  (3,240)  X (NNX) , Y (NYC) , Z ( 1 , NNX, NYC) 

106  140  CONTINUE 

107  DO  150  Jl=2,NXPOLl(I,NNY)-l 

108  WRITE  (3,240)  XPOLl ( I , Jl , NNY ) , YPOLl ( I , NNY ) , ZPOLl ( I , Jl 

109  1  NNY) 

110  150  CONTINUE 

111  DO  160  NNX=NXEND1(I,NNY)+1,NX 

112  NYC=NYSTAl(I)+NNY-2 

113  WRITE  (3,240)  X (NNX) , Y (NYC) , Z ( 1 , NNX, NYC) 

114  160  CONTINUE 

115  170  CONTINUE 

116  DO  180  NNY=NYEND1(I)+1,NY 

117  DO  180  NNX=1,NX 

118  WRITE  (3,240)  X  (  NNX)  ,  Y  (NNY  )  ,  Z  (  1 ,  NNX,  NNY  ) 

119  180  CONTINUE 

120  END  IF 

121  RETURN 

122  C 

123  190   FORMAT  (///,7X,'TEN  MOST  CRITICAL  SURFACES  :  ') 

124  200   FORMAT  (//, 7X, ' SURFACE  #  ',12) 

125  210   FORMAT  (/, 7X, ' Coordinate    X ', 7X, ' Coordinate    Y ', 7X, ' Coordinate 

126  1  Z'  ,/) 

127  220   FORMAT  ( 9X, F8 . 3 , 13X, F8 . 3 , 13X, F8 . 3 ) 
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128  230   FORMAT  (/, 7X, ' Factor  of  Safety  =  ',F6.3) 

129  240   FORMAT  ( IX, F8 . 3 , IX, F8 . 3 , IX, F8 . 3 ) 

130  END 


CRITIC   Local  Symbols 
Name 


Class 


Type 


NYEND param 

NYSTAR param 

Z param 

Y param 

X param 

NY param 

NX param 

FS param 

NSURFA param 

NSURF param 

NXEND param 

NXSTAR param 

ZPOL param 

YPOL param 

XPOL param 

NXPOL param 

NYPOL param 

I local 

J  • local 

K local 

NYC local 

NNX local 

NNY local 

NAMCRI local 

«J1 local 

«J2 local 

NYPOLl local 

NXPOLl local 

XPOLl local 

YPOLl local 

ZPOLl local 

NXSTAl local 

NXENDl local 

FSl local 

NYSTAl local 

NYENDl local 


INTEGER*4 

INTEGER*4 

INTEGER*4 

INTEGER*4 

INTEGER*4 

INTEGER*4 

CHAR*12 

INTEGER*4 

INTEGER*4 

INTEGER*4 

INTEGER*4 

REAL*4 

REAL*4 

REAL*4 

INTEGER*4 

INTEGER*4 

REAL* 4 

INTEGER*4 

INTEGER*4 


Size 

Offset 

0006 

000a 

OOOe 

0012 

0016 

001a 

OOle 

0022 

0026 

002a 

002e 

0032 

0036 

003a 

^ 

003e 

0042 

0046 

4 

0002 

4 

0006 

4 

000a 

4 

OOOe 

4 

0012 

4 

0016 

12 

001a 

4 

0026 

4 

002a 

40 

004a 

1000 

0072 

25000 

045a 

1000 

6602 

25000 

69ea 

1000 

cb92 

1000 

cf7a 

40 

d362 

40 

d38a 

40 

d3b2 

Symbolic  Constant  Type 

MCOORD INTEGER*4 

MSOIL INTEGER*4 

NUMCOL INTEGER*  4 

NCORN INTEGER*4 

^^XSUR INTEGER*4 

DIMENl INTEGER*4 

DIMEN2 INTEGER*4 


Value 


25 

5 

10 

4 

2000 

250 

6250 
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Global  Symbols 

Name  Class    Type  Size    Offset 

CRITIC FSUBRT   ***  ***     0000 

Code  size  =  0b92  (2962) 
Data  size  =  d473  (54387) 
Bss  size   =  002e  (46) 

No  errors  detected 
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1 
2 
3 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 

4 

5 
6 
7 
8 
9 
10 
11 


SUBROUTINE  FSCALC  (GOES, FI , A3 , W3 , U3 ,DIP, ALPHAYZ , FS , NYPOL, NCOLEF, 
INCORIG) 
Sinclude: ' CURRENTF. INC ' 
*****  Begin  listing  of:  CURRENTF. INC 


*=========================  Prologue  ================================= 

* 

*  Purpose: 

*  Include  file  with  parameter  declaration  for  the  program  PCSTL3D 


*  History: 

*  Version 


*  1.0 
* 

*  IN  args/commons 

* 

* 

*  OUT  args/commons 

* 

* 

*  INCUT  args/commons 


Processing: 
none 

Special  Requirements: 
none 


Programmer 
G.Moshkovich 
Units 


Date 


Description 
created 
Description 


Units 


Units 


Description 
Description 


* Include  files  

* Constant  declarations 

integer  MCOORD,  MSOIL,  NUMCOL,  NCORN 

parameter  (MCOORD  =  25,  MSOIL  =  5) 
parameter  (NUMCOL  =  10,  NCORN  =  4) 
PARAMETER  (MAXSUR=2000 ) 


MCOORD  -  maximum  number  of  points  in  each  direction 

MSOIL  -   maximum  number  of  soil  layers 

NUMCOL  -  maximum  number  of  generated  columns 

NCORN  -  number  of  nods  for  each  column  (do  not  change) 


Argument  declarations  

Global/External  declarations 
Local  declarations  


•***  End  listing  of:  CURRENTF. INC 

DIMENSION  GOES (MSOIL ) ,  FI(MSOIL),  ALPHAYZ (MCOORD , -NUMCOL: NUMCOL) , 
ID I P ( MCOORD , -NUMCOL : NUMCOL ) ,  A3 ( MCOORD , -NUMCOL : NUMCOL ) ,  W3 ( MCOORD , 
2NUMCOL : NUMCOL ) ,  U3 (MCOORD, -NUMCOL: NUMCOL) ,  NCOLEF (MCOORD ) , 
3NCORIG( MCOORD) 
XNUMER=0. 
DENOM=0. 

DO  20  I=1,NYP0L-1 
NNI=-NCOLEF(I) 
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12  NNF=NCORIG{I) 

13  DO  10  J=NNI,NNF 

14  IF  (J.EQ.O)  GO  TO  10 

15  EFFECT=(W3(I,J)*C0S(DIP(I, J) )-U3(I,J) ) 

16  IF  ( EFFECT. LT. 0.0)  EFFECT=0.0 

17  XNUMER=XNUMER+COES ( 1 ) *A3 ( I , J ) + ( EFFECT ) *TAN ( FI ( 1 ) ) 

18  DENOM=DENOM+W3(I, J)*SIN(ALPHAYZ(I,J) ) 

19  10  CONTINUE 

20  20    CONTINUE 

21  C      Factor  of  safety 

22  FSl=XNUMER/DENOM 

23  C      Modified  Factor  of  Safety  

24  FS=FS1 

25  C  if  (fsl  .gt.  0)  then 

26  C  write  (*,*)  '  FS  3D  =  '  ,  fsl 

27  C  endif 

28  ITER=1 

29  30    XNUMER=0. 

30  DENOM=0. 

31  DO  50  I=1,NYP0L-1 

32  NNI=-NCOLEF(I) 

33  NNF=NCORIG(I) 

34  DO  40  J=NNI,NNF 

35  IF  (J.NE.O)  THEN 

36  PESl=(W3(I,J)/COS(DIP(I, J) ) ) -U3 ( I , J) *A3 { I , J) 

37  C  if  (pesl  .It.  0.0)  pesl  =  0.0 

38  XITEM1=(PES1*TAN(FI(1) ) +COES ( 1 ) *A3 ( I , J) ) 

39  XITEM2=XITEM1*(C0S(ALPHAYZ(I, J) ) +SIN ( ALPHAYZ ( I , J) )* 

40  1  TAN(DIP(I,J) ) ) 

41  XITEM3=TAN(FI(1) ) *SIN ( ALPHAYZ ( I , J) ) / ( FS*COS ( DIP ( I , J) ) 

42  XITEM4=(1.+XITEM3) 

43  XNUMER=XNUMER+XITEM2/XITEM4 

44  DENOM=DENOM+W3(I, J)*TAN(DIP(I, J) ) 

45  END  IF 

46  40  CONTINUE 

47  50    CONTINUE 

48  FS2=XNUMER/DENOM 

49  IF  (ABS(FS2-FS) .LT.0.01)  THEN 

50  C  write(*,*)  '  FS  iteractive  =  ' , f s2 

51  FS=FS2 

52  END  IF 

53  IF  ( (ABS(FS2-FS) .GE. 0.01) .AND. (ITER. LT. 11) )  THEN 

54  FS=(FS2+FS)/2 

55  ITER=ITER+1 

56  GO  TO  30 

57  END  IF 

58  IF  ( (ITER. GE. 11) .AND. (ABS(FS2-FS) .GE. 0.01) )  THEN 

59  C  if  (fs2.gt.0)  write(*,*)  ' FS  did  not  converge..' 

60  C  write(*,*)  '  ' 

61  C  write(*,*)  '  ' 

62  FS=FS1 

63  END  IF 

64  RETURN 

65  END 
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FSCALC   Local  Symbols 
Name 


Class 


NCORIG param 

NCOLEF param 

NYPOL param 

FS param 

ALPHAYZ param 

DIP param 

U3 param 

W3 param 

A3 param 

FI param 

COES param 

I local 

FSl local 

J local 

FS2 local 

PESl local 

XNUMER local 

NNF local 

NNI local 

EFFECT local 

DENOM local 

ITER local 

XITEMl. local 

XITEM2 local 

XITEM3 local 

XITEM4.  . local 


Type 


Size   Offset 


INTEGER* 4 

REAL*4 

INTEGER* 4 

REAL* 4 

REAL*4 

REAL* 4 

INTEGER*4 

INTEGER*4 

REAL*4 

REAL*4 

INTEGER*4 

REAL*4 

REAL*4 

REAL*4 

REAL*4 


0006 

000a 

OOOe 

0012 

0016 

001a 

OOle 

0022 

0026 

002a 

002e 

4 

0000 

4 

0004 

4 

0008 

4 

000c 

4 

0010 

4 

0014 

4 

0018 

4 

001c 

4 

0020 

4 

0024 

4 

0028 

4 

002c 

4 

0030 

4 

0034 

4 

0038 

Symbolic  Constant 


Type 


Value 


MCOORD INTEGER*4 

MSOIL INTEGER*4 

NUMCOL INTEGER*4 

NCORN INTEGER*4 

MAXSUR INTEGER*4 


25 

5 

10 

4 

2000 


Global  Symbols 
Name 


FSCALC. 


Code  size  =  0606  (1542) 
Data  size  =  0010  (16) 
Bss  size   =  003c  (60) 


Class    Type 
FSUBRT   *** 


Size    Offset 
***     0000 


No  errors  detected 


168 


-H  PAGE 

04-12-91 
12:08:21 

Line#  Source  Line  Microsoft  FORTRAN  Optimizing  Compiler  Version  5.00 

1  $notruncate 

2  $title: 'PCSTBL3D  v2.0' 

3  $subtitle: ' Input  Data' 

4  Slarge 

5  SUBROUTINE  INDATA  (NX, NY, NSOIL, X, Y , Z , XAPRIN, YMINl , DYMINl , YMIN2  , 

6  1DYMIN2 , XMINl , DXMINl , XMIN2 , DXMIN2 , ZMIN, DZMIN, GAMA, GOES , FI , UCOND , RU 

7  2UZ,DATOUT) 

8  * 

9  *=========================  Prologue  =================================== 

10  * 

11  *  Purpose: 

12  *     Input  data  routine  for  the  program  PCSTBL3D 

13  * 

14  *  History: 

15  *     Version         Programmer     Date  Description 

16  *     

17  *     1.0  J.E.Thomas  created 

18  *     2.0  G.Moshkovich  code  beautified, 

19  *  variables  declared 

20  * 

21  *  IN  args/commons  Units  Description 

22  *  

23  * 

24  *  OUT  args/commons  Units  Description 


25 

2  6  *  nx 

2  7  *  ny 

28  *  nsoil 

29  *  X 

30  *  y 

31  *  z 

32  *  xaprin 

33  *  yminl 

34  *  dyminl 

3  5  *  ymin2 

36  *  dymin2 

37  *  xminl 

38  *  dxminl 

39  *  xmin2 

40  *  dxmin2 

41  *  zmin 

42  *  dzmin 

43  *  gama 

44  *  coes 

45  *  fi 

46  *  ucond 

47  *  ru 

48  *  uz 

49  *  dataout 

50  * 

51  *  INOUT  args/commons        Units  Description 

52  * 

53  * 

54  *  Processing: 

55  *      Open  data  file,  check  if  the  file  is  valid  PCSTBL3D  data  file, 

56  *  read  geometry  and  soil  data  from  the  file,  prints  all  data  in  the 

57  *  output  file  defined  by  the  user. 

58  * 


169 


-^H   PCSTBL3D  v2  .  0 
Input  Data 

Line#   Source  Line 


PAGE 
04-12-91 
12:08:21 

Microsoft  FORTRAN  Optimizing  Compiler  Version  5.00 


*  Special  Requirements: 

*  none 


Purpose: 

Include  file  with  parameter  declaration  for  the  program  PCSTL3D 


History: 
Version 


1.0 
IN  args/commons 

OUT  args/commons 

INOUT  args/commons 


Processing: 
none 

Special  Requirements: 
none 


Programmer 
G.Moshkovich 
Units 


Units 


Units 


59 
60 

61  * 

62  * Include 

63  Sinclude: 'CURRENTF.INC 

*****  Begin  listing  of:  CURRENTF.INC 

1  * 

2  *=========================  Prologue 

3  * 
4 
5 
6 
7 
8 
9 

10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 


files 


Date 


Description 
created 
Description 


Description 


Description 


Include  files  

Constant  declarations 

integer  MCOORD ,  MSOIL,  NUMCOL,  NCORN 

parameter  (MCOORD  =  25,  MSOIL  =  5) 
parameter  (NUMCOL  =  10,  NCORN  =  4) 
PARAMETER  (MAXSUR=2000 ) 


MCOORD  -  maximum  number  of  points  in  each  direction 

MSOIL  -   maximum  number  of  soil  layers 

NUMCOL  -  maximum  number  of  generated  columns 

NCORN  -  number  of  nods  for  each  column  (do  not  change) 


Argument  declarations  

Global/External  declarations 
Local  declarations  


*  *  *  *  * 


64 
65 
66 
67 
68 
69 


End  listing  of:  CURRENTF.INC 

Constant  declarations  

Argument  declarations  

REAL  X( MCOORD) ,Y (MCOORD) , XMINl (MCOORD ) , DXMINl (MCOORD ) , 
1DXMIN2( MCOORD) , XMIN2 (MCOORD ) 
REAL  Z (MSOIL, MCOORD , MCOORD ) , UZ (MSOIL, MCOORD, MCOORD ) 
REAL  ZMIN( MCOORD, MCOORD) , DZMIN (MCOORD , MCOORD ) 


170 


"H   PCSTBL3D  v2 . 0  PAGE 

Input  Data  04-12-91 

12:08:21 

Line#  Source  Line          Microsoft  FORTRAN  Optimizing  Compiler  Version  5.00 

70  REAL  COES(MSOIL) ,GAMA(MSOIL) ,FI(MSOIL) ,RU(MSOIL) 

71  INTEGER  NX,NY,NSOIL 

72  INTEGER  UCOND(MSOIL) 

73  CHARACTER*12  DATOUT 

74  * Global/External  declarations  

75  * Local  declarations  

76  CHARACTER* 12  DATIN 

77  CHARACTER*20  TEST, LEGAL 

78  INTEGER  XAPRIN,I,J,K 

79  * Code 

80  * define  input  &  output  files 

81  TEST='PCSTBL3D  Version  2.0' 

82  10    WRITE  (*,50)  '  Enter  name  of  input  file  :  ' 

83  READ  (*,'(a)')  DATIN 

84  OPEN  (1,FILE=DATIN) 

85  READ  (1,60)  LEGAL 

86  IF  ( LEGAL. NE. TEST)  THEN 

87  WRITE  (*,50)  '  Invalid  data  file,  please  reenter  ' 

88  GO  TO  10 

89  END  IF 

90  WRITE  (*,50)  '  Enter  name  of  output  file  :  ' 

91  READ  (*,'(a)')  DATOUT 

92  OPEN  (2,FILE=DATOUT) 

93  * start  reading  data 

94  WRITE  (2,70) 

9  5  READ  (1,*)  NX, NY 

96  WRITE  (2,80)  NX, NY 

9  7  READ  (1,*)  NSOIL 

98  WRITE  (2,90)  NSOIL 

99  READ  (1,*)  (X(I) ,I=1,NX) 

100  READ  (1,*)  (Y(J) , J=1,NY) 

101  WRITE  (2,100)  (I,X(I) , I=1,NX) 

102  WRITE  (2,110)  (J,Y(J) , J=1,NY) 

103  READ  (1,*)  ( ( (Z(K, I, J) , J=1,NY) ,I=1,NX) ,K=l,NSOIL) 

104  DO  20  K=l, NSOIL 

105  WRITE  (2,120)  K 

106  WRITE  (2,130)  ( (I, J,Z(K,I, J) ,J=1,NY) ,I=1,NX) 

107  20    CONTINUE 

108  WRITE  (2,140) 

109  READ  (1,*)  XAPRIN 

110  WRITE  (2,150)  X(XAPRIN) 

111  READ  (1,*)  YMIN1,DYMIN1,YMIN2,DYMIN2 

112  WRITE  (2,160)  YMINl , DYMINl , YMIN2 , DYMIN2 

113  WRITE  (2,170) 

114  READ  (1,*)  (XMIN1( J) ,DXMIN1( J) ,XMIN2(J) ,DXMIN2(J) , J=1,NY) 

115  WRITE  (2,180)  ( Y ( J) , XMINl ( J) , DXMINl ( J) , XMIN2 ( J) , DXMIN2 ( J ) , J=l , NY ) 

116  WRITE  (2,190) 

117  READ  (1,*)  ( (ZMIN(I, J) ,DZMIN(I, J) , J=1,NY) , I=1,NX) 

118  WRITE  (2,200)  ( ( I , J, ZMIN ( I , J) , I , J, DZMIN ( I , J ) , J=l , NY ) , 1=1 , NX) 

119  WRITE  (2,210) 

120  READ  (1,*)  (GAMA(K) ,COES(K) ,FI(K) ,K=1, NSOIL) 

121  WRITE  (2,220)  (K,GAMA(K) , COES (K) , FI (K) , K=l , NSOIL) 

122  * convert  shear  angle  to  radians 

123  DO  30  K=l, NSOIL 

124  FI (K)=FI(K)*0. 01745329 

125  30    CONTINUE 

126  DO  40  K=l, NSOIL 

127  READ  (1,230)  UCOND(K) 
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128  IF  (UCOND(K) .EQ.l)  THEN 

129  READ  (1,*)  RU(K) 

130  WRITE  (2,240)  K,RU(K) 

131  ELSE 

132  READ  (1,*)  ( (UZ(K,I,J) ,J=1,NY) ,I=1,NX) 

133  WRITE  (2,250)  ( ( I , J, UZ (K, I , J) , J=1,NY) , I=1,NX) 

134  END  IF 

135  40    CONTINUE 

136  RETURN 

137  C 

138  C 

139  50    FORMAT  (A) 

140  60    FORMAT  (20A) 

141  70    FORMAT  (IX  '**********************************************'/'* 

142  1  PC-STABL3D                   *</'*     3-DIMENSIOANL  SL 

143  2PE  STABILITY  PROGRAM    *'/'*  FROM  PURDUE  UNIVERSITY 

144  3  *'/'*                  VERSION  2.1                 *•  j  ■  ****** 
245  ^* ***************************************  I \ 

146  80    FORMAT  (7X, 'Number  of  X  coordinates  :  ', 13 ,/, 7X, ' Number  of  Y  coor 

147  linates  :  ',13) 

148  90    FORMAT  (7X, 'Number  of  soils  :  ',13,/) 

149  100   FOFIMAT  (//,7X,'X  COORDINATES  :',/,( 7X, ' coordinate  X(',I3,')  =  ', 

150  1F7.2)) 

151  110   FORMAT  (//,7X,'Y  COORDINATES  :',/,( 7X, ' coordinate  Y(',I3,')  =  ', 

152  1F7.2,)) 

153  120   FORMAT  (/, 7X, ' COORDINATES  Z  FOR  SOIL  #  ',12,/) 

154  130   FORMAT  (7X,'Z  (  '  ,  12  ,  '  ,  '  ,  12  ,  '  )  =  ',F7.2,4X,'Z  (  '  ,  12  ,  '  ,  '  ,  12 ,  ' )  =  ', 

155  1F7.2,4X,'Z  (  '  ,  12  ,  '  ,  '  ,  12  ,  '  )  =  ' , F7 . 2 ) 

156  140   FORMAT  (/, 7X, ' BOUNDARIES  FOR  GENERATION  IN  THE  Y  DIRECTION  :',//) 

157  150   FORMAT  (7X,'Main  Axis  of  Sliding  was  stablished  at  X  =  ',F7.2,/) 

158  160   FORMAT  (7X, 'Minimum  point  for  initiation  of  polygonals  at  Y  =  ', 

159  1F7. 2, /, 7X, ' Interval  for  initiation  of  polygonals  is  =  ',F7.2,/,7X 

160  2 'Minimum  point  for  termination  of  polygonals  at  Y  =  '  , F7  .  2 , / , 7X, ' 

161  3nterval  for  termination  of  polygonals  is  =  ',F7.2,/) 

162  170   FORMAT  (/, 7X, ' BOUNDARIES  FOR  GENERATION  IN  THE  X  DIRECTION  :',/) 

163  180   FORMAT  (/, 7X, ' Coordinate  Y  =  ', F7 . 2 ,/, 7X, 'Minimum  point  for  initi 

164  Ition  of  polygonals  at  X  =  ', F7 . 2 ,/, 7X, ' Interval  for  initiation  of 

165  2polygonals  is  =  ', F7 . 2 ,/, 7X, 'Minimum  point  for  termination  of  pol 

166  3gonals  at  X  =  ', F7 . 2 ,/, 7X, ' Interval  for  termination  of  polygonals 

167  4is  =  ' ,F7.2,/) 

168  190   FORMAT  (/, 7X, ' BOUNDARIES  FOR  GENERATION  IN  THE  Z  DIRECTION  :',/) 

169  200   FORMAT  ( 7X,  ' Zmin ( ' , 12 ,  ' ,  ' , 12 ,  ' )  =  ' , F7 . 2 , 4X,  ' Delta  Z ( ' , 12 ,  ' ,  ' , 12  , 

170  1)  =  ',F7.2) 

171  210   FORMAT  (/,7X,'SOIL  PROPERTIES  :',//, 7X, ' Soil ', 5X, ' Unit  Weight', 5X 

172  I'Cohesion' , 5X, 'Shear  Angle',/) 

173  220   FORMAT  ( / , 8X, 12 , 8X, F6 . 2 , 8X, F7 . 1 , 9X, F4 . 1 ) 

174  230   FORMAT  (13) 

175  240   FORMAT  (/,7X,'Ru  of  soil  #',I3,'  =  ' , F4 . 2 ) 

176  250   FORMAT  ( / / , ' PIEZOMETRIC  LINE  OF  SOIL  ',(/,7X,'For  x(',I2,')  and  y 

177  l',I2,  ' ),  U  =  ',F4.2)) 

178  END 

INDATA  Local  Symbols 

Name  Class    Type               Size    Offset 

DATOUT param  0006 
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INDATA   Local  Symbols 

Name 


Class 


UZ param 

RU param 

UCOND param 

FI param 

COES •  -  •  param 

GAMA param 

DZMIN param 

ZMIN param 

DXMIN2 param 

XMIN2 param 

DXMINl param 

XMINl param 

DYMIN2 param 

YMIN2 param 

DYMINl param 

YMINl param 

XAPRIN param 

Z param 

Y param 

X param 

NSOIL param 

NY param 

NX param 

TEST local 

I local 

J local 

K local 

LEGAL local 

DATIN local 


Type 


Size 


CHAR* 20 
INTEGER*4 
INTEGER*4 
INTEGER*4 
CHAR* 20 
CHAR* 12 


20 

4 

4 

4 

20 

12 


Offset 

000a 
OOOe 
0012 
0016 
001a 
OOle 
0022 
0026 
002a 
002e 
0032 
0036 
003a 
003e 
0042 
0046 
004a 
004e 
0052 
0056 
005a 
005e 
0062 
0012 
0026 
002a 
002e 
0032 
0046 


Symbolic  Constant  Type 

MCOORD INTEGER*  4 

MSOIL INTEGER*4 

NUMCOL INTEGER*  4 

NCORN INTEGER*4 

MAXSUR INTEGER*4 


Value 


25 
5 

10 
4 

2000 


Global  Symbols 
Name 


INDATA. 


Code  size  =  1054  (4180) 
Data  size  =  Oled  (493) 
Bss  size   =  0052  (82) 


Class    Type 
FSUBRT   *** 


Size    Offset 
***     0000 


No  errors  detected 
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1  SUBROUTINE  PARAMl  (NYPOL, XCOL, YCOL, ZCOL, ZSOL, NCOLEF, NCORIG, 

2  lALPHAXZ , ALPHAY Z , DIP , TETA, A3 , GAMA, RU , W3 , U3 , NSOIL ) 

3  S include : 'CURRENTF. INC 

*****  Begin  listing  of:  CURRENTF. INC 


1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 

i 

4 
5 

6 

7 

8 

9 

10 

11 


Prologue 


Purpose: 

Include  file  with  parameter  declaration  for  the  program  PCSTL3D 


History: 
Version 


1.0 


*  IN  args/commons 


OUT  args/commons 


INOUT  args/commons 


Programmer 
G.Moshkovich 

Units 


Date 


Description 
created 
Description 


Units 


Units 


Description 


Description 


Processing: 
none 

Special  Requirements: 
none 


* Include  files  

* Constant  declarations 

integer  MCOORD,  MSOIL,  NUMCOL,  NCORN 

parameter  (MCOORD  =  25,  MSOIL  =  5) 
parameter  (NUMCOL  =  10,  NCORN  =  4) 
PARAMETER  (MAXSUR=2000 ) 


MCOORD  -  maximum  number  of  points  in  each  direction 

MSOIL  -   maximum  number  of  soil  layers 

NUMCOL  -  maximum  number  of  generated  columns 

NCORN  -  number  of  nods  for  each  column  (do  not  change) 


* Argument  declarations  

* Global/External  declarations 

* Local  declarations 


***** 


End  listing  of:  CURRENTF. INC 

DIMENSION  XCOL ( MCOORD , -NUMCOL : NUMCOL , NCORN ) ,  YCOL (MCOORD, - 
INUMCOL : NUMCOL , NCORN ) ,  ZCOL ( MCOORD , -NUMCOL : NUMCOL , NCORN ) , 
2NCOLEF (MCOORD ) ,  NCORIG (MCOORD ) ,  ALPHAXZ (MCOORD , -NUMCOL : NUMCOL ) , 
3ALPHAYZ (MCOORD, -NUMCOL: NUMCOL) ,  DIP (MCOORD , -NUMCOL: NUMCOL ) , 
4TETA ( MCOORD , -NUMCOL : NUMCOL ) ,  A3 ( MCOORD , -NUMCOL : NUMCOL ) , 
5  ZSOL ( MSOIL , MCOORD , -NUMCOL : NUMCOL , NCORN ) ,  W3 ( MCOORD , -NUMCOL : NUMCOL 
6,  U3 (MCOORD, -NUMCOL: NUMCOL ) ,  GAMA (MSOIL),  RU( MSOIL) 
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12  C  Calculation  of  column  parameters 

13  C  

14  DO  30  I=1,NYP0L-1 

15  NNI=-NCOLEF(I) 

16  NNF=NCORIG(I) 

17  DO  20  J=NNI,NNF 

18  IF  (J.EQ.O)  GO  TO  20 

19  DELTAZ1= ( ZCOL ( I , J, 1 ) +ZCOL ( I , J, 2 ) - ( ZCOL ( I , J, 3 ) +ZCOL ( I , J , 4 ) 

20  1  )/2. 

2 1  DELTAX1=XC0L ( I , J , 1 ) -XCOL ( I , J , 4 ) 

22  C     alphaxz(i,j)   

23  ALPHAXZ(I, J)=ATAN(DELTAZ1/DELTAX1) 

24  DELTAZ2= ( ZCOL ( I , J, 2 ) +ZCOL ( I , J, 3 ) - { ZCOL ( I , J, 1 ) +ZCOL ( I , J, 4 ) 

25  1  )/2. 

2  6  DELTAY2= ( YCOL ( I , J , 2 ) +YCOL { I , J , 3 ) - ( YCOL ( I , J , 1 ) +YCOL ( I , J , 4 ) 

27  1  )/2. 

28  C      alphayz(i,j)   

29  ALPHAYZ ( I , J ) =ATAN { DELTAZ2 /DELTAY2 ) 

30  c      DIP(i,j)   

31  DIP{I, J)=AC0S(1./SQRT(1+(TAN(ALPHAYZ(I, J) ) )**2+ 

32  1  (TAN(ALPHAXZ(I, J) ) )**2) ) 

33  C      teta(i,j)  and   Area  A3(i,j)  

34  TETA(I, J)=SQRT(l.-( ( SIN ( ALPHAXZ ( I , J) ) **2 )*( SIN (ALPHAYZ ( I , 

35  1  J))**2))) 

3  6  A3(I, J)=(DELTAX1*DELTAY2*TETA(I, J) )/ (COS (ALPHAXZ ( I , J) )* 

37  1  COS(ALPHAYZ(I, J) ) ) 

38  C      W3(i,j)  =  weight  of  the  column  

39  W3(I,J)=0.0 

40  Z  ZCOL=  ZCOL ( I , J , 1 ) +ZCOL ( I , J , 2 ) +ZCOL ( I , J , 3 ) +ZCOL ( I , J , 4 ) 

41  ZZC0L=ZZC0L/4. 

42  IUCODE=0 

43  DO  10  K=NSOIL,l,-l 

44  ZZl=ZSOL(K,I,J,l)+ZSOL(K,I, J,2)+ZS0L(K,I, J,3)+ZS0L(K, 

45  1  I, J, 4) 

46  ZZl=ZZl/4. 

47  IF  (ZZl.GT.ZZCOL)  THEN 

48  W3(I, J)=W3(I, J)+(ZZ1-ZZC0L)*GAMA(K) 

49  ZZC0L=ZZ1 

50  IF  (lUCODE.EQ.O)  THEN 

51  IUCODE=K 

52  END  IF 

53  END  IF 

54  10  CONTINUE 

5  5  U3(I, J)=W3(I, J)*RU(IUCODE) 

5  6  W3 ( I , J) =W3 ( I , J) *DELTAX1*DELTAY2 

57  20  CONTINUE 

58  30    CONTINUE 

59  RETURN 

60  END 

PARAMl  Local  Symbols 

Name  Class    Type               Size    Offset 

NSOIL param  0006 

U3 param  000a 

W3 param  OOOe 
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PARAMl   Local  Symbols 
Name 


Class 


RU par  am 

GAMA param 

A3 param 

TETA.  . param 

DIP param 

ALPHAYZ param 

ALPHAXZ param 

NCORIG param 

NCOLEF param 

ZSOL param 

ZCOL param 

ycOL .  param 

XCOL param 

NYPOL  ..........  param 

I local 

J local 

K local 

ZZCOL .  local 

NNF local 

ZZl local 

NNI local 

DELTAXl local 

DELTAY2 local 

DELTAZl local 

DELTAZ2 local 

lUCODE local 


Type 


Size 


INTEGER*4 

INTEGER*4 

INTEGER*4 

REAL*4 

INTEGER*4 

REAL*4 

INTEGER*4 

REAL*4 

REAL*4 

REAL* 4 

REAL*4 

INTEGER*4 


.e 

Offset 

0012 

0016 

001a 

OOle 

0022 

0026 

002a 

002e 

0032 

0036 

003a 

003e 

0042 

0046 

4 

0000 

4 

0004 

4 

0008 

4 

000c 

4 

0010 

4 

0014 

4 

0018 

4 

001c 

4 

0020 

4 

0024 

4 

0028 

4 

002c 

Symbolic  Constant 


Type 


Value 


MCOORD INTEGER*4 

MSOIL INTEGER*4 

NUMCOL INTEGER*4 

NCORN INTEGER*4 

MAXSUR INTEGER*4 


25 

5 

10 

4 

2000 


Global  Symbols 
Name 


PARAMl, 


Code  size  =  04af  (1199) 
Data  size  =  000c  (12) 
Bss  size   =  0030  (48) 


Class    Type 
FSUBRT   *** 


Size    Offset 
***     0000 


No  errors  detected 
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1  SUBROUTINE  POLYGO  (NPPOLY, XVPOL, YVERTICE , DELTA, COD , DIFF, Kl , RANDC, 

2  lRANDL,RANDR,XROW,Y,Z,NY,YVPOL) 

3  INTEGER  XROW 

4  $  include : 'CURRENTF.  INC 

*****  Begin  listing  of:  CURRENTF. INC 

1  * 

2  *=========================  Prologue  =================================== 

3  * 

4  *  Purpose: 

5  *     Include  file  with  parameter  declaration  for  the  program  PCSTL3D 

6  * 

7  *  History: 

8  *     Version         Programmer     Date  Description 

9  *     

10  *     1.0  G.Moshkovich  created 

11  * 

12  *  IN  args/commons  Units  Description 

13  * 

14  * 

15  *  OUT  args/commons  Units  Description 

16  * 

17  * 

18  *  INOUT  args/commons        Units  Description 

19  *  

20  * 

21  *  Processing: 

22  *     none 

23  * 

24  *  Special  Requirements: 

25  *    none 

26  * 

27  * Include  files  

28  * Constant  declarations  

29  integer  MCOORD ,  MSOIL,  NUMCOL,  NCORN 
30 

31  parameter  (MCOORD  =  25,  MSOIL  =  5) 

32  parameter  (NUMCOL  =  10,  NCORN  =4) 

33  PARAMETER  (MAXSUR=2000 ) 
34 

35  * MCOORD  -  maximum  number  of  points  in  each  direction 

36  * MSOIL  -   maximum  number  of  soil  layers 

37  * NUMCOL  -  maximum  number  of  generated  columns 

38  * NCORN  -  number  of  nods  for  each  column  (do  not  change) 

39 

40  * Argument  declarations 

41  * Global/External  declarations 

42  * Local  declarations 


43 
44 
45 

*****  End  listing  of:  CURRENTF. INC 

5  REAL  Kl, N30,N45,N85,N89,T( 30 ), YVERTICE (28) ,DELTA(MCOORD) , 

6  ■    lXVPOL( MCOORD) ,YVPOL( MCOORD) ,Y(MCOORD) ,Z(MSOIL,MCOORD, MCOORD) 

7  CHARACTER  COD 

8  C this  routine  generates  random  surfaces 

9  C define  values  in  radians 

10  N30=30*3. 141593/180 

11  N45=45*3. 141593/180 
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12  N85=85*3. 141593/180 

13  N89=89*3. 141593/180 

14  T{1)=0 

15  NPPOL=NPPOLY+l 

16  DO  30  I=2,NPP0LY 

17  NCONT=0 

18  J=I+DIFF 

19  IF  (COD.EQ.'c')  THEN 

20  CALL  RNDC  (RANDC) 

21  FIAND=RANDC 

22  END  IF 

23  IF  (COD.EQ.'l')  THEN 

24  CALL  RNDL  (RANDL) 

25  RAND=RANDL 

26  END  IF 

27  IF  (COD.EQ.'r')  THEN 

28  CALL  RNDR  (RANDR) 

29  RAND=RANDR 

30  END  IF 

31  C.......If  ny=0  it  means  that  we  are  calculating  the  body  of  the 

32  C.  .  .  .  .  .  .polygonal. 

33  IF  ( (I.EQ.2) .AND. ( (COD.EQ. 'c' ) .OR. (NY.EQ.O) ) )  THEN 

34  IF  (COD.NE.'c')  THEN 

35  T(2)=N30*RAND**2 

36  YVPOL ( 2 ) =YVPOL ( 1 ) + { XVPOL ( 2 ) -XVPOL ( 1 ) )*TAN(T(2) ) 

37  ELSE 

38  T(2)=-N45+(0.95*ATAN(K1)+N45)*RAND**2 

39  YVPOL(2)=YVPOL(l)+(XVPOL(2)-XVPOL(l) )*TAN(T(2) ) 

40  END  IF 

41  ELSE 

42  IF  (COD.EQ.'C)  THEN 

43  CALL  RNDC  (RANDC) 

44  RAND=RANDC 

45  END  IF 

46  IF  (COD.EQ.'l')  THEN 

47  CALL  RNDL  (RANDL) 

48  RAND=RANDL 

49  END  IF 

50  IF  (COD.EQ.'r')  THEN 

51  CALL  RNDR  (RANDR) 

52  RAND=RANDR 

53  END  IF 

54  10  YVPOL( I)=YVERTICE( J)+RAND*DELTA( J) 

5  5  T(I)=ATAN( ( YVPOL ( I ) -YVPOL ( I-l ) )/ (XVPOL ( I ) -XVPOL ( I-l ) ) ) 

56  IF  (I.EQ.2)  GO  TO  20 

57  IF  (T(I) .GT.N85)  THEN 

58  IF  (COD.EQ.'c')  THEN 

59  CALL  RNDC  (RANDC) 

60  RAND=RANDC 

61  END  IF 

62  IF  (COD.EQ.'l')  THEN 

63  CALL  RNDL  (RANDL) 

64  RAND=RANDL 

65  END  IF 

66  IF  (COD.EQ.'r')  THEN 

67  CALL  RNDR  (RANDR) 

68  RAND=RANDR 

69  END  IF 
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70  GO  TO  10 

71  END  IF 

72  XTESTE=XVPOL(l)+2*(XVPOL{NPPOL)-XVPOL(l) )/3 

73  IF  ( (XVPOL(I) .GT.XTESTE) -AND. {T(I) .LT.T(I-l) ) )  THEN 

74  TTESTE=ATAN( ( YVERTICE ( J) +DELtA( J) -YVPOL ( I-l ) )/ 
7  5        1  (XVPOL(I)-XVPOL(I-l) ) ) 

76  IF  ( (TTESTE.GE.T(I-l) ) .AND. (NCONT.LE. 5) )  THEN 

7  7  NC0NT=NC0NT+1 

78  IF  (COD.EQ.'C')  THEN 

79  CALL  RNDC  (RANDC) 

80  RAND=RANDC 

81  END  IF 

82  IF  (COD.EQ.'l')  THEN 

83  CALL  RNDL  (RANDL) 

84  RAND=RANDL 

85  END  IF 

86  IF  (COD.EQ.'r')  THEN 

87  CALL  RNDR  (RANDR) 

88  RAND=RANDR 

89  END  IF 

90  GO  TO  10 

91  ELSE 

92  yVPOL(I)=YVERTICE(J)+DELTA(J) 

93  T(I)=ATAN( ( YVPOL ( I ) -YVPOL ( I-l ) ) / ( XVPOL ( I ) -XVPOL ( I 

94  1  1))) 

95  END  IF 

96  ELSE 

97  END  IF 

98  IF  (T(I) .LE.T(I-l) )  THEN 

99  IF  (COD.NE.'c')  THEN 

100  T(I)=T(I-1) 

101  ELSE 

102  IF  ( (T(I)-T(I-l) ) .LT. (-N45*RAND**RAND) )  THEN 

103  V=T(I-1)-N45*RAND**RAND 

104  IF  (V.GT. (-N45) )  THEN 

105  T(I)=V 

106  ELSE 

107  T(I)=-N45 

108  END  IF 

109  END  IF 

110  END  IF 

111  ELSE 

112  IF  { (T{I)-T(I-1) ) .GE. (N45*RAND**RAND) )  THEN 

113  IF  ( (T(I-1)+N45*RAND**RAND) .GT.N85)  THEN 

114  T(I)=N85 

115  ELSE 

116  T(I)=T( I-1)+N45*RAND**RAND 

117  END  IF 

118  END  IF 

119  END  IF 

120  YVP0L(I)=YVP0L(I-1)+(XVP0L(I)-XVP0L(I-1) )*TAN(T(I) ) 

121  END  IF 

122  C. . . . .now  ,  check  if  yvpol  is  within  limits 

123  20        IF  (YVPOL(I) .LT.YVERTICE{J) )  YVPOL ( I ) =YVERTICE ( J) 

124  IF  (YVPOL( I ) .GT. (YVERTICE (J)+DELTA( J) ) )  YVPOL ( I ) =YVERTICE ( J) + 

125  1      DELTA(J) 

126  T(I)=ATAN( ( YVPOL ( I ) -YVPOL ( I-l ) )/ (XVPOL ( I ) -XVPOL ( I-l ) ) ) 

127  C final  of  "DO"  procedure 
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128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 


30 


40 


50 


60 


CONTINUE 

IF  (COD.NE.'C')  GO  TO  60 

T ( NPPOL ) =ATAN ( ( YVPOL ( NPPOL ) -YVPOL ( NPPOLY ) ) / ( XVPOL ( NPPOL )  - 
lXVPOL{NPPOLY) ) ) 
IF  (T (NPPOL) .GT.N89)  THEN 

XVPOL ( NPPOL ) =XVPOL ( NPPOL ) +1 

XTESTE=XVPOL ( NPPOL ) 

CALL  COORYZ  (XROW, Y, Z , NY, XTESTE , YTESTE, ALPHA) 

YVPOL { NPPOL ) =YTESTE 

GO  TO  40 
ELSE 
END  IF 
IF  (T(NPPOL) .LT.T{NPPOLY) )  THEN 

XVPOL { NPPOL ) =XVPOL ( NPPOL ) -1 

XTESTE=XVPOL ( NPPOL ) 

CALL  COORYZ  (XROW, Y, Z , NY, XTESTE, YTESTE, ALPHA) 

YVPOL ( NPPOL ) =YTESTE 

T ( NPPOL ) =ATAN (  ( YVPOL ( NPPOL ) -YVPOL ( NPPOLY )  ) / ( XVPOL ( NPPOL )  ■ 
1       XVPOL( NPPOLY) ) ) 

GO  TO  50 
ELSE 
END  IF 
RETURN 
END  - 


POLYGO   Local  Symbols 
Name 


Class 


YVPOL .  param 

NY param 

Z param 

Y param 

XROW param 

RANDR param 

RANDL param 

RANDC param 

Kl param 

DIFF param 

COD param 

DELTA param 

YVERTICE param 

XVPOL param 

NPPOLY param 

NCONT local 

I local 

NPPOL local 

J local 

T local 

V local 

TTESTE local 

XTESTE local 

YTESTE local 

RAND local 

ALPHA local 

N30 local 

N45 local 


Type 

Size 

Offset 

0006 
000a 
OOOe 
0012 
0016 
OOla 
OOle 
0022 
0026 
002a 
002e 
0032 
0036 
003a 
003e 

INTEGER*4 

4 

0000 

INTEGER* 4 

4 

0004 

INTEGER*4 

4 

0008 

INTEGER*4 

4 

000c 

REAL* 4 

120 

0010 

REAL* 4 

4 

0088 

REAL* 4 

4 

008c 

REAL* 4 

4 

0090 

REAL* 4 

4 

0094 

REAL* 4 

4 

0098 

REAL* 4 

4 

009c 

REAL* 4 

4 

OOaO 

REAL* 4 

4 

00a4 
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5 


POLYGO   Local  Symbols 

Name  Class    Type 

N85  local    REAL*4 

N89  local    REAL*4 

Symbolic  Constant  Type 

MCOORD INTEGER*4 

MSOIL INTEGER*4 

NUMCOL INTEGER*4 

NCORN INTEGER*4 

MAXSUR INTEGER*4 


Size 

4 
4 


Value 


Offset 

OOaS 
OOac 


25 

5 

10 

4 
2000 


Global  Symbols 
Name 


Class    Type 


COORYZ extern  *** 

POLYGO FSUBRT  *** 

RNDC extern  *** 

RNDL extern  *** 

RNDR extern  *** 

Code  size  =  0931  (2353) 
Data  size  =  0030  (48) 
Bss  size   =  OObO  (175) 


Size 

*  *  * 

*  *  * 

*  *  * 
*** 
*** 


Offset 

*  *  * 
0000 

*  *  * 

*  *  * 
*** 


No  errors  detected 
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SUBROUTINE  RNDC  (X) 

=========================  Prologue  =================================== 


1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 


*  Purpose: 

*  Generate  random  number  numbers  for  the  axis 


*  History: 

*  Version 


Programmer     Date 


1.0 
2.0 


J.E.Thomas 
G.Moshkovich 


*  IN  args/commons 

* 

* 

*  OUT  args/commons 

* 

*  INOUT  args/commons 


Units 

Units 

Units 
N/A 


Description 

created 

code  beautified, 
variables  declared 

Description 

Description 

Description 

Generated  random  number 


*  Processing: 

*  Convert  seed  and  given  numbers  to  the  pseudo-random  numbers 

*  with  integer  and  fractional  part  processing. 
* 

*  Special  Requirements: 

*  none 


* Include  files  

* Constant  declarations  

* Argument  declarations  

REAL  X 

* Global/External  declarations 

* —  Local  declarations 

REAL  RM 

INTEGER  K, J,M,IX,IRAND 

DATA  K, J, M,RM/ 5 701, 3 612, 56692 7, 56692 7.0/ 
* Code 

IX=INT(X*RM) 

IRAND=MOD ( J* IX+K, M ) 

X=(REAL( IRAND)+0. 5) /RM 

RETURN 

END 


RNDC   Local  Symbols 

Name  Class 

X param 

K local 

IX local 

J local 

IRAND local 

M local 


Type 


INTEGER*4 
INTEGER*4 
INTEGER*4 
INTEGER*4 
INTEGER*4 


Size 


e 

Offset 

0006 

4 

0000 

4 

0000 

4 

0004 

4 

0004 

4 

0008 
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RNDC   Local  Symbols 

Name  Class    Type  Size    Offset 

RM local    REAL*4  4     000c 

Global  Symbols 

Name  Class    Type  Size    Offset 

RNDC FSUBRT   ***  ***     0000 

Code  size  =  0066  (102) 
Data  size  =  0014  (20) 
Bss  size   =  0008  (8) 

No  errors  detected 
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183 

1 


1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28  ■ 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 


$title: 'PCSTBL3D  v2 . 0 ' 

$subtitle: 'Random  Left  Side  Numbers' 

SUBROUTINE  RNDL  (X) 
* 

* 

*  Purpose: 

*  Generate  random  number  numbers  for  the  left  side  of  the  3D  surface 


*  History: 

*  Version 


1.0 
2.0 


Programmer 

J.E.Thomas 
G.Moshkovich 


*  IN  args/commons 

* 

* 

*  OUT  args/commons 
* 

* 

*  INOUT  args/commons 
* 

*  X 


Units 

Units 

Units 
N/A 


Date  Description 

created 

code  beautified, 

variables  declared 

Description 

Description 

Description 

G'enerated  random  number 


*  Processing: 

*  Convert  seed  and  given  numbers  to  the  pseudo-random  numbers 

*  with  integer  and  fractional  part  processing. 
* 

*  Special  Requirements: 

*  none 
* 

* Include  files  

* Constant  declarations 

* Argument  declarations 

REAL  X 

* Global/External  declarations  

* Local  declarations  

REAL  RM 

INTEGER  K, J,M, IX,IRAND 

DATA  K, J, M,RM/ 5701, 3612, 5 66927, 566927.0/ 
* Code 

IX=INT(X*RM) 

IRAND=MOD ( J* IX+K, M) 

X= ( REAL ( IRAND ) +0 . 5 ) /RM 

RETURN 

END 


RNDL   Local  Symbols 

Name  Class 

X param 

K local 

IX local 

J local 


Type 


INTEGER*4 
INTEGER*4 
INTEGER*4 


Size 


e 

Offset 

0006 

4 

0000 

4 

0000 

4 

0004 

184 
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RNDL  Local  Symbols 

Name  Class    Type 

IRAND  local    INTEGER*4 

M  local    INTEGER*4 

RM local    REAL*4 

Global  Symbols 

Name  Class    Type 

RNDL FSUBRT   *** 

Code  size  =  0066  (102) 
Data  size  =  0014  (20) 
Bss  size   =  0008  (8) 

No  errors  detected 


Size  Offset 

4  0004 

4  0008 

4  000c 


Size    Offset 
***     0000 


"H 


Line# 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
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SUBROUTINE  RNDR  (X) 
* 

*=========================  Prologue  =================================== 

* 

*  Purpose: 

*  Generate  random  number  numbers  for  the  right  side  of  the  3D  surfac 


185 
1 


*  History: 

*  Version 


Programmer     Date 


1.0 
2.0 


J.E.Thomas 
G.Moshkovich 


Description 

created 

code  beautified, 

variables  declared 


*  IN  args/commons 

* 

* 

*  OUT  args/commons 

* 

* 

*  INOUT  args/commons 


Units 

Units 

Units 
N/A 


Description 


Description 


Description 

Generated  random  number 


*  Processing: 

*  Convert  seed  and  given  numbers  to  the  pseudo-random  numbers 

*  with  integer  and  fractional  part  processing. 
* 

*  Special  Requirements: 

*  none 


* Include  files 

* Constant  declarations 

* Argument  declarations 

REAL  X 

* Global/External  declarations 

* Local  declarations 

REAL  RM 

INTEGER  K, J,M, IX,IRAND 

DATA  K, J, M,RM/ 5 70 1,3 612, 5 6692 7, 5 6692 7.0/ 
* Code 

IX=INT(X*RM) 

IRAND=MOD ( J  * IX+K , M ) 

X= ( REAL ( IRAND ) +0 . 5 ) /RM 

RETURN 

END 


RNDR   Local  Symbols 

Name  Class 

X param 

K local 

IX local 

J local 

IRAND local 

M local 


Type 


INTEGER*4 
INTEGER*4 
INTEGER*4 
INTEGER*4 
INTEGER*4 


Size 


e 

Offset 

0006 

4 

0000 

4 

0000 

4 

0004 

4 

0004 

4 

0008 
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RNDR 

Local  Symbols 

Name 

Class 

Type 

RM.  . 

.  .  local 

REAL*4 

Size   Offset 
4     000c 

Global  Symbols 

Name  Class   Type  Size   Offset 

RNDR FSUBRT   ***  ***     0000 

Code  size  =  0066  (102) 
Data  size  =  0014  (20) 
Bss  size   =  0008  (8) 

No  errors  detected 
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1  C Subroutine  Wibul  calculates  and  prints  out  minimum 

2  C statistical  value  of  the  factor  of  safety 

3  SUBROUTINE  WEIBUL  (NFS,FSCUM) 

4  IMPLICIT  REAL  (A-Z) 

5  INTEGER  NFS, I, II 

6  DIMENSION  FSCUM(*) 

7  $ large:  e 

8  DIMENSION  E(4000) 

9  C       Weibulls  Calculations  

10  DO  10  1=1, NFS 

11  IF  (FSCUM(I) .LT.399)  THEN 

12  MAXFS=MAX(MAXFS,FSCUM(I) ) 

13  END  IF 

14  10    CONTINUE 

15  DO  30  1=1, NFS 

16  DO  20  II=1,INT(MAXFS+1) 

17  IF  {FSCUM(I) .LE. 11/10. )  THEN 

18  E(II)=E(II)+1. 

19  GO  TO  30 

20  END  IF 

21  20  CONTINUE 

22  30    CONTINUE 

23  E2=0 

24  E3=0 

25  DO  40  I  =  1,INT(MAXFS  +  1)  '^ 

26  E2=E2+E(I)*I/10. 

27  E3=E3+E(I) 

28  40    CONTINUE 

29  E6=E2/E3 

30  E2=0 

31  E4=0 

32  DO  50  I=1,INT(MAXFS+1) 

33  E2=E2+E(I)*(I/10.-E6)**2 

34  E4=E4+E{I)*{I/10.-E6)**3 

35  50    CONTINUE 

36  E7=SQRT(E2/E3) 

37  E8=E4/E3 

38  E9=E8/E7**3 

39  C  for  bl=  e9  get  the  value  of  1/B 

40  CALL  FUNCTl  (B,E9) 

41  Bl=l+B 

42  B2=1+2*B 

43  N=B1 

44  G1=GAMMA(N) 

45  N=B2 

46  G2=GAMMA(N) 

47  B4=E6-E7*G1/SQRT(G2-G1*G1) 

48  B3=(E6-B4)/G1+B4 

49  B5=l/B 

50  C F  =  ((II  -  B4)  /  (B3  -  B4 )  )  "     (B5  -  1 )  *  B5  /  (B3  -  B4 )  *c 

51  C EXP(-((I1  -  B4)  /  (B3  -  84))  -    B5) 

52  PRINT  60,  'MINIMUM  SATISTICAL  FACTOR  OF  SAFETY  IS   ' , B4 

53  IF  (B4.LE.0.)  THEN 

54  PRINT  * 

55  PRINT  * 

56  PRINT  *,'  ***ATTENTION***' 

57  PRINT  *, 'MINIMUM  STATISTICAL  FACTOR  OF  SAFETY  IS  NEGATIVE' 

58  PRINT  *, 'REVIEW  YOUR  SURFACE  GENERATION  LIMITS  OR  INCREASE' 
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Line#   Source  Line 


59 

PRINT 

60 

PRINT 

61 

ELSE  IF  (: 

62 

PRINT 

63 

PRINT 

64 

PRINT 

65 

PRINT 

66 

PRINT 

67 

PRINT 

68 

PRINT 

69 

END  IF 

70 

RETURN 

71 

C 

72 

60 

FORMAT  (/ 

73 

END 

WEIBUL 

Local 

Symbols 

Name 

Microsoft  FORTRAN  Optimizing  Compiler  Version  5.00 
NUMBER  OF  GENERATED  SURFACES' 


***ATTENTION*** ' 
'MINIMUM  STATISTICAL  FACTOR  OF  SAFETY  IS  VERY  SMALL' 
'REVIEW  YOUR  SURFACE  GENERATION  LIMITS  OR  INCREASE' 
NUMBER  OF  GENERATED  SURFACES' 


Class 


Type 


Size 


Offset 


FSCUM param                          •  0006 

NFS param  000a 

E  local    REAL*4            16000  0000  • 

B local    REAL*4                4  0002 

I local    INTEGER*4             4  0006 

N '.....  local    REAL*4                4  000a 

II local    INTEGER*4             4  OOOe 

Bl local    REAL*4                4  0012 

82 local    REAL*4                 4  0016 

B3 local    REAL*4                4  001a 

B4. local    REAL*4                4  OOle 

B5 local    REAL*4                4  0022 

E2 local    REAL*4                4  0026 

Gl local    REAL*4                4  002a 

E3 local    REAL*4                4  002e 

G2 local    REAL*4                4  0032 

E4 local    REAL*4                4  0036 

E6 local    REAL*4                4  003a 

E7 local    REAL*4                4  003e 

E8 local    REAL*4                4  0042 

E9 local    REAL*4                4  0046 

MAXFS local    REAL*4                4  004a 

74  REAL  FUNCTION  GAMMA(X) 

75  CD     DOUBLE  PRECISION  FUNCTION  DGAMMA(X) 

7  6   C 

77  C 

78  C  This  routine  calculates  the  GAMMA  function  for  a  real  argument  X. 

79  C    Computation  is  based  on  an  algorithm  outlined  in  reference  1. 

80  C    The  program  uses  rational  functions  that  approximate  the  GAMMA 

81  C    function  to  at  least  20  significant  decimal  digits.   Coefficients 

82  C    for  the  approximation  over  the  interval  (1,2)  are  unpublished. 

83  C    Those  for  the  approximation  for  X  .GE.  12  are  from  reference  2. 

84  C    The  accuracy  achieved  depends  on  the  arithmetic  system,  the 

85  C    compiler,  the  intrinsic  functions,  and  proper  selection  of  the 

86  C    machine-dependent  constants. 

87  C 
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88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 


Explanation  of  machine-dependent  constants 


beta 

maxexp 

XBIG 


XINF 

EPS 

XMININ 


radix  for  the  floating-point  representation 

the  smallest  positive  power  of  beta  that  overflows 

the  largest  argument  for  which  GAMMA(X)  is  representable 

in  the  machine,  i.e.,  the  solution  to  the  equation 

GAMMA (XBIG)  =  beta**maxexp 
the  largest  machine  representable  floating-point  number; 
approximately  beta**maxexp 

the  smallest  positive  floating-point  number  such  that 
1.0+EPS  .GT.  1.0 

the  smallest  positive  floating-point  number  such  that 
1/XMININ  is  machine  representable 


Approximate  values  for  some  important  machines  are: 


C************ ******************************************************* 
C******* ******************************** **************************** 
C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c* 

c* 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


CRAY-1 

Cyber  180/855 

under  NOS 
IEEE  (IBM/XT, 

SUN,  etc.) 
IEEE  (IBM/XT, 

SUN,  etc.) 
IBM  3033 
VAX  D-Format 
VAX  G-Format 


CRAY-1 

Cyber  180/855 

under  NOS 
IEEE  (IBM/XT, 

SUN,  etc.) 
IEEE  (IBM/XT, 

SUN,  etc.) 
IBM  3033 
VAX  D-Format 
VAX  G-Format 


(S.P.) 

(S.P.) 

(S.P.) 

(D.P.) 
(D.P.) 
(D.P.) 
(D.P.) 


(S.P.) 

(S.P.) 

(S.P.) 

(D.P.) 
(D.P.) 
(D.P.) 
(D.P.) 


beta 

2 

2 

2 

2 

16 

2 

2 

XINF 

5.45E+2465 

1.26E+322 

3.40E+38 

1.79D+308 
7.23D+75 
1.70D+38 
8.980+307 


maxexp 

8191 

1070 

128 

1024 

63 

127 

1023 

EPS 

7.11E-15 

3.55E-15 

1.19E-7 


22D-16 
22D-16 
39D-17 


l.llD-16 


XBIG 

966.961 

177.803 

35.040 

171.624 
57.574 
34.844 
171.489 

XMININ 

1.84E-2466 

3.14E-294 

1.18E-38 

2.23D-308 
1.39D-76 
5.88D-39 
1.12D-308 


*********************i,i,**ic^,i,***^,^,****■|,1,^,■)r■|,^,■^,i,■),i,i,■|,^,^,^,^,^,^^,^,^,^,^,^,^,^^^^ 

Error  returns 

The  program  returns  the  value  XINF  for  singularities  or 
when  overflow  would  occur.   The  computation  is  believed 
to  be  free  of  underflow  and  overflow. 


Intrinsic  functions  required  are: 
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146  C      INT,  DBLE,  EXP,  LOG,  REAL,  SIN 

147  C 

148  C 

149  C  References:  "An  Overview  of  Software  Development  for  Special 

150  C  Functions",  W.  J.  Cody,  Lecture  Notes  in  Mathematics, 

151  C  506,  Numerical  Analysis  Dundee,  1975,  G.  A.  Watson 

152  C  (ed.)»  Springer  Verlag,  Berlin,  1976. 

153  C 

154  C  '    Computer  Approximations,  Hart,  Et.  Al . ,  Wiley  and 

155  C  sons.  New  York,  1968. 

156  C 

157  C   Latest  modification:  October  12,  1989 

158  C 

159  C   Authors:  W.  J.  Cody  and  L.  Stoltz 

160  C  Applied  Mathematics  Division 

161  C  Argonne  National  Laboratory 

162  C  Argonne,  IL  60439 

163  C 

164  C 

165  INTEGER  I,N 

166  LOGICAL  PARITY 

167  REAL 

168  CD     DOUBLE  PRECISION 

169  1     C, CONV, EPS, FACT, HALF, ONE, P, PI, Q, RES, SQRTPI, SUM, TWELVE, 

170  2     TWO, X,XBIG,XDEN,XINF,XMININ,XNUM,Y,Y1,YSQ,Z, ZERO 

171  DIMENSION  C ( 7 ) , P ( 8 ) , Q ( 8 ) 

172  C — • 

173  C   Mathematical  constants 

174  C 

17  5         DATA  ONE , HALF , TWELVE , TWO , ZERO/ 1 .0E0,0.5E0,12.0E0,2.0E0,0.0E0/, 

176  1      SQRTPI/0.9189385332046727417803297E0/, 

177  2      PI/3.1415926535897932384626434E0/ 

178  CD     DATA  ONE , HALF, TWELVE, TWO, ZERO/1 . ODO , 0 . 5D0 , 12 . ODO, 2 . ODO, 0 . ODO/ , 

179  CD    1      SQRTPI/0.9189385332046727417803297D0/, 

180  CD    2      PI/3.1415926535897932384626434D0/ 

181  C 

182  C   Machine  dependent  parameters 

183  C 

184  DATA  XBIG,XMININ, EPS/35. 040E0,1.18E-38,1. 19E-7/, 

185  1      XINF/3.4E38/ 

186  CD     DATA  XBIG, XMININ, EPS/ 171 . 624D0 , 2 . 23D-308 , 2 . 22D-16/ , 

187  CD    1      XINF/1.79D308/ 

188  C 

189  C   Numerator  and  denominator  coefficients  for  rational  minimax 

190  C      approximation  over  (1,2). 

191  C 

192  DATA  P/-1. 7 16185 13886549492 533811E+0,  2. 4765650805 5 7 59 199 1083 14E+1 

193  1        -3.  798042 5 6470945 635097 577E+2, 6. 2933 11 5 53 12818442 66 1052E+2 

194  2        8. 66966202 7904 1321 129 5064E+2, -3. 145 12 72 9 68848367 52 5 4357E+4 
19  5        3        -3. 614441341869 11729807069E+4, 6. 645 6 143820240544062 7 85 5E+4 

196  DATA  Q/ -3. 08402 300 11973897 52 54353E+1, 3. 1535062 697960416 152 9 144E+2 

197  1       -1.0151563  6749021914166146E+3,-3.107  7716715  72  31109440444E+3 

198  2         2.25381184209801510330112E+4,4.75584627752788110767815E+3 

199  3       -1. 3465995986496930639245 6E+5, -1.15 1322 59 675 5 534834972 llE+5 

200  CD     DATA  P/-1 . 71618513886549492533811D+0 , 2 . 47656508055759199108314D+1 

201  CD    1        -3.79804256470945635097577D+2,6.29331155312818442661052D+2 

202  CD    2        8.66966202790413211295064D+2,-3.14512729688483675254357D+4 

203  CD    3        -3.61444134186911729807069D+4,6.64561438202405440627855D+4 
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204  CD     DATA  Q/-3 . 08402300119738975254353D+1, 3 . 15350626979604161529144D+2 

205  CD    1  -1.015156367490219141661460+3,-3. 10777167157231109440444D+3 

206  CD    2  2.25381184209801510330112D+4,4.75584627752788110767815D+3 

207  CD    3  -1.34659959864969306392456D+5,-1.15132259675553483497211D+5 

208  C • 


209 

C 

Coefficients  for  minimax  approximation  over  (12,  INF). 

210 
211 

r*— - 

^~" 

DATA  C/-1. 910444077 728E-03, 8, 4171387781295E-04, 

212 

1      -5. 9523799 13043012E-04, 7. 93650793 5003 50248E-04, 

213 

2      -2.777777777777681622553E-03,8.333333333333333331554247E-.02, 

214 

3       5.7083835261E-03/ 

215 

CD 

DATA  C/-1.910444077728D-03,8.4171387781295D-04, 

216 

CD 

1      -5.952379913043012D-04,7.93650793500350248D-04, 

217 

CD 

2      -2.777777777777681622553D-03,8.333333333333333331554247D-02, 

218 

CD 

3       5.7083835261D-03/ 

219 
220 

r*— - 

C 

Statement  functions  for  conversion  between  integer  and  float 

221 
222 

p— - 

\^ 

CONV ( I )  =  REAL ( I ) 

223 

CD 

CONV(I)  =  DBLE(I) 

224 

PARITY  =  .FALSE. 

225 

FACT  =  ONE 

226 

N  =  0 

227 

Y  =  X 

228 

IF  (Y  .LE.  ZERO)  THEN 

229 
230 

P  — - 

c 

Argument  is  negative 

231 
232 

p 

_■_«______ 

*w 

Y  =  -X 

233 

Yl  =  AINT(Y) 

234 

RES  =  Y  -  Yl 

235 

IF  (RES  .NE.  ZERO)  THEN 

236 

IF  (Yl  .NE.  AINT(Yl*HALF)*TWO)  PARITY  =  .TRUE. 

237 

FACT  =  -PI  /  SIN(PI*RES) 

238 

Y  =  Y  +  ONE 

239 

ELSE 

240 

RES  =  XINF 

241 

GO  TO  900 

242 

END  IF 

243 

END  IF 

244 
245 

p  — - 

c 

Argument  is  positive 

246 

P-- 



247 

^ 

IF  (Y  .LT.  EPS)  THEN 

0  A9. 

p  — - 

249 

C 

Argument  .LT.  EPS 

250 

C-- 

251 

IF  (Y  .GE.  XMININ)  THEN 

252 

RES  =  ONE  /  Y 

253 

ELSE 

254 

RES  =  XINF 

255 

GO  TO  900 

256 

END  IF 

257 

ELSE  IF  (Y  .LT.  TWELVE)  THEN 

258 

Yl  =  Y 

259 

IF  (Y  .LT.  ONE)  THEN 

260 

C-- 

261 

C 

0.0  .LT.  argument  .LT.  1.0 
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2fa2 

C- 



, — 

263 

Z  =  Y 

264 

Y  =  Y  +  ONE 

265 
266 

ELSE 

~ 

267 
268 

c 

1.0 

.LT 

'• 

argument  .LT.  12.0,  reduce  argument  if  necessary 

269 

N  =  INT{Y)  -  1 

270 

Y  =  Y  -  CONV(N) 

271 

Z  =  Y  -  ONE 

272 
273 

END  IF 

274 
275 

c 

Eval 

uate 

approximation  for  1.0  .LT.  argument  .LT.  2.0 

276 

XNUM  =  ZERO 

277 

XDEN  =  ONE 

278 

DO  260  I  =  1,  8 

279 

XNUM  =  ( XNUM  +  P ( I )  )  *  Z 

280 

XDEN  =  XDEN  *  Z  +  Q(I) 

281 

260 

CONTINUE 

282 

RES  =  XNUM  /  XDEN  +  ONE 

283 

IF  (Yl  .LT.  Y)  THEN 

284 

c- 

285 

c 

Adjust 

result  for  case   0.0  .LT.  argument  .LT.  1.0 

286 

c- 

287 

RES  =  RES  /  Yl 

288 
289 

ELSE  IF  (Yl  .GT.  Y)  THEN 

290 

c 

Adju 

St 

result  for  case   2.0  .LT.  argument  .LT.  12.0 

291 
292 

DO  290  I  =  1,  N 

293 

RES  =  RES  *  Y 

294 

Y  =  Y  +  ONE 

295 

290 

CONTINUE 

296  END  IF 

297  ELSE 

298  C 

299  C   Evaluate  for  argument  .GE.  12.0, 

300  C 

301 

302 

303 

304 

305 

306     350 

307 

308 

309 

310 

311 

312 

313 

314         END 


IF 

(Y  .LE.  XBIG)  THEN 
YSQ  =  Y  *  Y 
SUM  =  C(7) 
DO  350  I  =  1,  6 

• 

SUM  =  SUM  /  YSQ  + 

C(I) 

CONTINUE 

SUM  =  SUM/Y  -  Y  +  SQRTPI 

SUM  =  SUM  +  (Y-HALF)^ 

*LOG(Y) 

RES  =  EXP (SUM) 

ELSE 

RES  =  XINF 

GO  TO  900 

END 

1  IF 

IF 

315  C 

316  C   Final  adjustments  and  return 

317  C 

318  IF  (PARITY)  RES  =  -RES 

319  IF  (FACT  .NE.  ONE)  RES  =  FACT  /  RES 
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7 


320  900  GAMMA  =  RES 

321  CD900  DGAMMA  =  RES 

322  RETURN 

323  C Last  line  of  GAMMA 

324  END 


GAMMA  Local  Symbols 
Name 


Class 


Type 


GAMMA param 

X param 

XNUM local  REAL*4 

I  local  INTEGER*4 

Yl local  REAL*4 

N  local  INTEGER*4 

Y  local  REAL*4 

PARITY local  LOGICAL*4 

Z  local  REAL*4 

FACT local  REAL*4 

RES loca-1  REAL*4 

XDEN local  REAL*4 

SUM  local  REAL*4 

YSQ  local  REAL*4 

ONE local  REAL*4 

HALF local  REAL*4 

TWELVE local  REAL*4 

TWO local  REAL*4 

ZERO local  REAL*4 

SQRTPI local  REAL*4 

PI.  local  REAL*4 

XBIG local  REAL*4 

XMININ local  REAL*4 

EPS local  REAL*4 

XINF.  . local  REAL*4 

P  local  REAL*4 

Q  .  local  REAL*4 

C  local  REAL*4 

325  C calculate  1/B 

326  SUBROUTINE  FUNCTl  (B,E9) 

327  IMPLICIT  REAL  (A-Z) 

328  JI=.02 

329  JF=2.1 

330  10    J=JI 

331  NI=FUNCT2(J) 

332  J=JF 

333  NF=FUNCT2(J) 

334  A=(NF-NI)/ (JF-JI) 

335  B=NI-A*JI 

336  NJ=FUNCT2(J) 

337  IF  ( (NJ-E9) .LT. .001)  GO  TO  20 

338  IF  (NJ.GT.E9)  THEN 

339  JF=J 

340  ELSE 

341  JI=J 


Size 

Offset 

0006 

0008 

4 

004e 

4 

0052 

4 

0056 

4 

005a 

4 

005e 

4 

0062 

4 

0066 

4 

006a  • 

4 

006e 

4 

0072 

4 

0076 

4 

007a 

4 

Olbc 

4 

OlcO 

4 

01c4 

4 

01c8 

4 

Olcc 

4 

OldO 

4 

01d4 

4 

OldS 

4 

Oldc 

4 

OleO 

4 

01e4 

32 

01e8 

32 

0208 

28 

0228 
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END  IF 
GO  TO  10 
B=J 

RETURN 
END 


FUNCTl 
Name 


Local  Symbols 


Class 


E9. 
B  . 

A  . 
J  . 
JF. 
JI. 
NF. 
NI. 
NJ. 


Type 


Size 


param 

par  am 

local 

REAL*4 

local 

REAL*4 

local 

REAL*4 

local 

REAL*4 

local 

REAL* 4 

local 

REAL* 4 

local 

REAL* 4 

e 

Offset 

0006 

000a 

4 

007e 

4 

0082 

4 

0086 

4 

008a 

4 

008e 

4 

0092 

4 

0096 

347 
348 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 


C- 
C- 


FUNCTION  FUNCT2  (J) 
IMPLICIT  REAL  (A-Z) 

calculate  n(j) 

N=l+J 

G1=GAMMA(N) 

N=1+2*J 

G2=GAMMA(N) 

N=1+3*J 

G3=GAMMA(N) 

N1=G3-3*G2*G1+2*G1**3 

N22=(G2-G1*G1) **1.5 

FUNCT2=N1/N22 

RETURN 

END 


FUNCT2   Local  Symbols 
Name 


Class 


FUNCT2 param 

J param 

N local 

N22 local 

Gl local 

G2 local 

G3 local 

Nl local 


Type 


REAL* 4 
REAL* 4 
REAL*4 
REAL* 4 
REAL*4 
REAL* 4 


Size 


e 

Offset 

0006 

0008 

4 

009a 

4 

009e 

4 

00a2 

4 

00a6 

4 

OOaa 

4 

OOae 

Global  Symbols 

Name 

FUNCTl 


Class   Type 
FSUBRT   *** 


Size 


Offset 
09bc 
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Global  Symbols 

Name  Class   Type  Size   Offset 

FUNCT2 FFUNCT   REAL*4  ***     Obla 

GAMMA FFUNCT   REAL*4  ***     059b 

WEIBUL FSUBRT   ***  ***     0000 

Code  size  =  Oc45  (3141) 
Data  size  =  0272  (626) 
Bss  size   =  00b2  (178) 

No  errors  detected 
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1  SUBROUTINE  GENSUR  (NX, NY , X, Y, Z , XAPRIN, YMINl , DYMINl, YMIN2 , DYMIN2 , 

2  IXMINl , DXMINl , XMIN2 , DXMIN2 , ZMIN , DZMIN , YPAl , NXEND , YPA2 , NYSTAR , NYPOL 

3  2XIPOL , XFPOL , NXSTAR , NXPOL , XPOL , ZPOL , YPOL , XCOL , YCOL , ZCOL , NCOLEF , 

4  3NCORIG,NPTLEF,NPTRIG, ZSOL, NSOIL, NYEND, DIFF) 

5  C this  routine  generates  three  dimensional  surfaces 

6  C It  calls  routines  POLYGO  and  POLYGZ 

7  $  include :  'CURRENTF. INC 

*****  Begin  listing  of:  CURRENTF.INC 

1  * 

2  *=========================  Prologue  =========================-========= 

3  * 

4  *  Purpose: 

5  *     Include  file  with  parameter  declaration  for  the  program  PCSTL3D 

6  * 

7  *  History: 

8  *     Version         Programmer     Date  Description 

9  *     

10  *     1.0  G.Moshkovich  created 

11  * 

12  *  IN  args/commons  Units  Description 

13  *  

14  * 

15  *  OUT  args/commons  Units  Description 

16  *  

17  * 

18  *  INOUT  args/commons        Units  Description 

19  *  

20  * 

21  *  Processing: 

22  *     none 

23  * 

24  *  Special  Requirements: 
2  5  *     none 

26  * 

27  * Include  files 

28  * Constant  declarations  

2  9  integer  MCOORD ,  MSOIL,  NUMCOL,  NCORN 

30 

31  parameter  (MCOORD  =  25,  MSOIL  =  5) 

32  parameter  (NUMCOL  =  10,  NCORN  =  4) 

33  PARAMETER  (MAXSUR=2000 ) 
34 

35  * MCOORD  -  maximum  number  of  points  in  each  direction 

36  * MSOIL  -   maximum  number  of  soil  layers 

37  * NUMCOL  -  maximum  number  of  generated  columns 

38  * NCORN  -  number  of  nods  for  each  column  (do  not  change) 

39 

40  * Argument  declarations  

41  * Global/External  declarations  

42  * Local  declarations 


43 
44 
45 

*****  End  listing  of:  CURRENTF.INC 

8  DIMENSION  X(MCOORD),  Y(MCOORD),  Z (MSOIL, MCOORD, MCOORD ) , 

9  IXMINl (MCOORD ) ,  DXMINl (MCOORD ) ,  XMIN2 (MCOORD ) ,  DXMIN2 (MCOORD ) , 

10  2 ZMIN (MCOORD, MCOORD ) ,  DZMIN ( MCOORD , MCOORD ) ,  YPOLAX (MCOORD ) , 

11  3ZPOLAX (MCOORD ) ,  ZMI AX (MCOORD) ,  D ZMI AX (MCOORD ) ,  X I POL (MCOORD ) , 


197 


-H  PAGE 

04-12-91 
12:08:04 

Line#  Source  Line          Microsoft  FORTRAN  Optimizing  Compiler  Version  5.00 

12  4XFPOL(MCOORD) ,  XMIN3 (MCOORD) ,  DXMIN3 (MCOORD) ,  NXPOL ( MCOORD ) , 

13  5NXSTAR ( MCOORD ) ,  NXEND ( MCOORD ) ,  XPOL ( MCOORD , MCOORD ) ,  YPOL ( MCOORD ) , 

14  6 Z POL (MCOORD, MCOORD ) ,  XD IFF (MCOORD ) ,  XPOL3 (MCOORD ) ,  ZP0L3 (MCOORD ) , 

15  7XC0L ( MCOORD , -NUMCOL : NUMCOL , NCORN ) ,  YCOL ( MCOORD , -NUMCOL : NUMCOL , 

16  8NC0RN ) ,  ZCOL ( MCOORD , -NUMCOL : NUMCOL , NCORN ) ,  NCOLEF ( MCOORD ) , 

17  9NPTLEF ( MCOORD ) ,  NCORIG ( MCOORD ) ,  NPTRIG ( MCOORD ) ,  ZSOL (MSOIL, MCOORD 

18  X-NUMCOL : NUMCOL , NCORN ) 

19  INTEGER  XAPRIN, XROW, DIFF,XDIFF 

20  CHARACTER  CODE 

21  REAL  Kl 
22 

23  C USE  SYSTEM  TIME  AS  SEED  FOR  RANDOM  ROUTINS 

24  CALL  GETTIM(IHR,IMIN,ISEC,I100TH) 

25  RANDC=(I100TH+0.5)/100 

26  CALL  GETTIM(IHR,IMIN,ISEC,I100TH) 

27  RANDL=(I100TH+0.5)/100 

28  CALL  GETTIM(IHR, IMIN, ISEC, IIOOTH) 

29  RANDR=(I100TH+0.5) /lOO 

30  C GENERATES  THE  MAIN  AXIS  POLYGONAL 

31  C first  vertice  of  surface  on  Y  direction 

32  CALL  RNDC  (RANDC) 

33  YPA1=YMIN1+RANDC*DYMIN1 

34  YTESTE=YPA1 

35  XROW=XAPRIN 

36  CALL  COORYZ  ( XROW, Y, Z , NY, YTESTE, ZFINAL,;&.PHA) 

37  ZPA1=ZFINAL 

38  K1=ALPHA 

39  C. . . . . last  vertice  of  surface  on  Y  direction 

40  CALL  RNDC  (RANDC) 

41  YPA2=YMIN2+RANDC*DYMIN2 

42  yTESTE=YPA2 

43  XROW=XAPRIN 

44  CALL  COORYZ  ( XROW, Y , Z , NY , YTESTE, ZFINAL, ALPHA) 

45  ZPA2=ZFINAL 

46  C calculation  of  number  of  vertices  between  extremities 

47  DO  10  1=1, NY 

48  IF  (Y(I) .GT.YPAl)  THEN 

49  NYSTAR=I 

50  GO  TO  20 

51  END  IF 

52  10    CONTINUE 

53  20    CONTINUE 

54  DO  30  I=NY,1,-1 

55  IF  (Y(I) .LT.YPA2)  THEN 

56  NYEND=I 

57  GO  TO  40 

58  END  IF 

59  30    CONTINUE 

60  40    CONTINUE 

61  C nypol  =  number  of  Y  vertices  in  the  main  axis  polygonal 

62  C including  extremities 

63  NYP0L=NYEND-NYSTAR+3 

64  YPOLAX(l)=YPAl 

65  ZPOLAX(l)=ZPAl 

66  YPOLAX( NYPOL )=YPA2 

67  ZPOLAX( NYPOL )=ZPA2 

68  NYPPOL=NYPOL-l 

69  DIFF=NYSTAR-2 
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70  C transform  all  y  coordinates  to  ypolax  coordinates 

71  DO  50  I=2,NYPP0L 

72  J=I+DIFF 

73  YPOLAX(I)=Y( J) 

74  50    CONTINUE 

75  C. here  zmin  is  transformed  in  an  unidimensional  array  to  fit  the 

75  C routine  call  internal  dimension 

77  DO  60  1=1, NY 

78  ZMIAX(I)=ZMIN(XAPRIN,I) 

79  DZMIAX(I)=DZMIN(XAPRIN,I) 

80  60    CONTINUE 

81  C call  routine  to  random  generate  the  coordinates 

82  C code  identifies  which  side  is  being  generated  { l=lef t,r=right, 

83  C c=axis  ) 

84  CODE='c' 

85  C  { 'input' } 

86  CALL  POLYGO  ( NYPPOL, YPOLAX, ZMIAX, DZMIAX, CODE , DIFF, Kl , RANDC, RANDL, 

87  1RANDR,XAPRIN,Y,Z,NY,ZP0LAX) 

88  C  {output} 

89  C NOW  GENERATES  THE  LEFT  SIDE  INTERSECTION  SURFACE/GROUND 

90  CODE='l' 

•91  C these  are  the  extremities  of  the  intersection  (on  the  main  axis) 

92  XIPOL(l)=X(XAPRIN) 

93  ■   XIPOL(NYPOL)=X(XAPRIN) 

94  C  { 'input' } 

95  CALL  POLYGO  (NYPPOL, YPOLAX, XMINl , DXMINl , CODE, DIFF, Kl , RANDC, RANDL, 

96  1RANDR,XAPRIN,Y,Z,NY,XIP0L) 

97  C  {output} 

98  C NOW  GENERATES  THE  RIGHT  SIDE  INTERSECTION  SURFACE/GROUND 

99  CODE='r' 

100  C these  are  the  extremities  of  the  intersection  (on  the  main  axis) 

101  C the  signal  is  inverted  to  let  the  angle  definition  in  the  polygo 

102  C nal  routine  be  the  same  even  though  here  the  orientation  of  the 

103  C boundaries  are  inversed 

104  XFPOL(l)=-X(XAPRIN) 

105  XFPOL(NYPOL)=-X(XAPRIN) 

106  C now  transform  arrays  xmin2  and  dxmin2  so  that  routine  can  be 

107  C used  without  changing  orientation  of  angles 

108  DO  70  1=1, NY 

109  XMIN3 (!)=-( XMIN2 ( I ) +DXMIN2 ( I ) ) 

110  DXMIN3(I)=DXMIN2(I) 

111  70    CONTINUE 

112  C  { 'input' } 

113  CALL  POLYGO  (NYPPOL, YPOLAX, XMIN3 , DXMIN3 , CODE, DIFF, Kl ,  RANDC, RANDL, 

114  1RANDR,XAPRIN, Y,Z,NY,XFPOL) 

115  C  {output} 

116  DO  80  I=1,NYP0L  • 

117  XFPOL(I)=-XFPOL(I) 

118  80    CONTINUE 

119  C NOW  CALCULATE  THE  BODY  OF  THE  SURFACE  ITSELF 

120  C calculate  ,  for  each  Y  coordinate  ,  the  amount  of  vertices 

121  C in  the  X  direction  

122  NXPOL(l)=l 

123  NXPOL(NYPOL)=l 

124  DO  200  1=2, NYPPOL 

125  C define  limiting  variables 

126  J1=I+DIFF 

127  XI=XIPOL(I) 
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128  XF=XFPOL(I) 

129  C calculate  the  number  of  points  in  the  X  direction  for  that  Y. . . 

130  C coordinate. 

131  DO  90  J=1,XAPRIN 

132  IF  (X(J).GT.XI)  THEN 

133  NXSTAR(I)=J 

134  GO  TO  100 

135  END  IF 

136  90  CONTINUE 

137  100  CONTINUE 

138  DO  110  J=XAPRIN,NX 

139  IF  {X(J).GE.XF)  THEN 

140  NXEND(I)=J-1 

141  GO  TO  120 

142  END  IF 

143  110  CONTINUE 

144  120  CONTINUE 

145  NXPOL(I)=NXEND(I)-NXSTAR(I)+3 

146  XDIFF(I)=NXSTAR{I)-2 

147  C association  of  the  polygonal  relative  X  coordinates  with  the.... 

148  C absolute  reference  X  axis. 

149  C. . . . .xpol ( il, i)  is  the  coordinate  X  of  the  il-enth  point  of  the  surf. 

150  C at  the  i-enth  Y  coordinate,  il  varies  from  1  to  nxpol(i)  ,.  and  i 

151  C varies  from  1  to  nypol 

152  XP0L(1,I)=XI  " 

153  XPOL(NXPOL(I) , I)=XF 

154  L=NXSTAR(I) 

155  LIM=NXP0L(I)-1 

156  DO  130  11=2, LIM 

157  XPOL(Il,I)=X(L) 

158  L=L+1 

159  130  CONTINUE 

160  C calculate  the  Z  values  for  the  initial  and  final  points 

161  NYROW=I 

162  XTESTE=XI 

163  CALL  COORXZ  (NYROW, X, Z , NX, XTESTE , ZTESTE ) 

164  ZPOL(l, I)=ZTESTE 

165  C      

166  XTESTE=XF 

167  CALL  COORXZ  (NYROW, X, Z , NX, XTESTE, ZTESTE) 

168  ZPOL(NXPOL(I) , I)=ZTESTE 

159   C Calculate  the  values  of  Z  of  polygonal  on  the  LEFT 

170  C transform   array  zmin  to  fit  dimension  of  routine  polygonal. 

171  C At  this  part,  the  polygonal  will  be  generated  assuming  that 

172  C.....xpol3  and  zmiax  start  at  x  =  xaprin  and  the  axis  of  X  increses 

173  C to  the  left  .  Thus  zmiax(l)  =  zmin{xaprin)  and  ndiffx  =0  (both 

174  C start  at  xaprin  )  . 

175  L=XAPRIN 

176  DO  140  11=1, XAPRIN 

177  ZMIAX(I1)=ZMIN(L,I) 

178  DZMIAX(I1)=DZMIN(L,I) 

179  L=L-1 

180  140  CONTINUE 

181  NXPA=XAPRIN-XDIFF(I) 

182  NXPAB=NXPA-1 

183  ZPOL(NXPA,I)=ZPOLAX(I) 

184  C no=  transfor0  arrays  xpoco   sn  tha("  routine  cae  bo 

185  C used  without  changing  orientation  of  angles 
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186  K=NXPA 

187  DO  150  J=1,NXPA 

188  XPOL3(J)=-XPOL(K, I) 

189  K=K-1 

190  150  CONTINUE 

191  ZPOL3(l)=ZPOLAX(I) 

192  C angle  is  horizontal 

193  K1=0 

194  CODE='l' 

195  NDIFFX=0 

196  NYNOW=I 

197  C  { 'input' } 

198  CALL  POLYGO  (NXPAB, XP0L3 , ZMIAX, DZMIAX, CODE, NDIFFX, Kl, RANDC, 

199  1  RANDL,RANDR,NYNOW,X,Z,0,ZPOL3) 

200  C  {output} 

201  C restore  array  to  original 

202  K=NXPA-1 

203  DO  160  J=2,NXPA-1 

204  ZPOL(K,I)=ZPOL3(J) 

205  K=K-1 

206  160  CONTINUE 

207  C. ... .Calculate  values  of  Z  on  RIGHT  side  of  polygonal 

208  C.....no=  transfor0  array<  xpooo   sD  tha  ["  routina  cae  ha 

209  C used  without  changing  orientation  of  angles 

210  11=1 

211  DO  170  I2=XAPRIN,NX 

212  ZMIAX(I1)=ZMIN(I2,I) 

213  DZMIAX{I1)=DZMIN(I2, I) 

214  11=11+1 

215  170  CONTINUE 

216  NXPAB=NXPOL(I)-NXPA 

217  Jl=l 

218  DO  180  J=NXPA,NXPOL(I) 

219  XPOL3{Jl)=XPOL(J, I) 

220  J1=J1+1 

221  180  CONTINUE 

222  ZP0L3(1)=ZP0LAX(I) 

223  C angle  is  horizontal 

224  K1=0 

225  C0DE='r' 

226  NDIFFX=0 
22  7  NYNOW=I 

228  C  { 'input' } 

229  CALL  POLYGO  (NXPAB, XPOL3 , ZMIAX, DZMIAX, CODE , NDIFFX, Kl , RANDC, 

230  1  RANDL,RANDR,NYNOW,X, Z,0,ZPOL3) 

231  C  {output} 

232  C restore  array  to  original 

233  K=NXPA+1 

234  DO  190  J=2, NXPAB 

235  ZPOL(K, I)=ZPOL3(J) 

236  K=K+1 

237  190  CONTINUE 

238  200   CONTINUE 

2  39   C Transfer  coordinates 

240  CALL  TRANSF  ( YPAl , YPA2 , NYSTAR, NYPOL, Y, YPOL) 

241  C  { input }{-out-} 

242  C Calculate  columns  of  the  left  side 

243  CALL  COLUML  (YPAl , YPA2 , NYSTAR, NYPOL, X, Y, Z , XAPRIN, XIPOL, NXSTAR, 
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244 
245 
246 
247 
248 
249 
250 
251 


INXPOL , XPOL , yPOL , XCOL , YCOL , ZCOL , NCOLEF , NPTLEF , Z  POL , Z  SOL , XD I FF , 
2NSOIL,NPPOL) 
Calculate  columns  of  the  right  side 

CALL  COLUMR  ( YPAl , YPA2 , NYSTAR, NYPOL, NPPOL, X, Y, Z , XAPRIN, XFPOL, 
INXSTAR , NXPOL , XPOL , YPOL , ZPOL , XCOL , YCOL , ZCOL , NCOLEF , NCORIG , NPTLEF , 
2NPTRIG,NXEND,ZSOL,XDIFF,NSOIL) 

RETURN 

END 


GENSUR   Local  Symbols 
Name 


Class    Type 


DIFF param 

NYEND param 

NSOIL param 

ZSOL param 

NPTRIG param 

NPTLEF. param 

NCORIG param 

NCOLEF param 

ZCOL param 

YCOL param 

XCOL param 

YPOL param 

ZPOL param 

XPOL param 

NXPOL param 

NXSTAR param 

XFPOL param 

XIPOL param 

NYPOL param 

NYSTAR param 

YPA2 param 

NXEND param 

YPAl param 

DZMIN param 

ZMIN param 

DXMIN2 param 

XMIN2 param 

DXMINl param 

XMINl param 

DYMIN2 param 

YMIN2 param 

DYMINl param 

YMINl param 

XAPRIN param 

Z param 

Y param 

X param 

NY param 

NX param 

ZFINAL local 

NPPOL local 

I local 

ZMIAX local 

J local 


REAL* 4 
INTEGER*4 
INTEGER*4 
REAL* 4 
INTEGER*4 


ize    Offset 

0006 

000a 

OOOe 

0012 

0016 

001a 

OOle 

0022 

0026 

002a 

002e 

0032 

0036 

003a 

003e 

0042 

0046 

004a 

004e 

0052 

0056 

005a 

005e 

0062 

0066 

006a 

006e 

0072 

0076 

007a 

007e 

0082 

0086 

008a 

008e 

0092 

0096 

009a 

009e 

4     0000 

4     0004 

4     0008 

100     000c 

4     0070 

202 


PAGE 
04-12-91 
12:08:04 

Microsoft  FORTRAN  Optimizing  Compiler  Version  5.00 


GENSUR   Local  Symbols 
Name 


Class 


K local 

L local 

DZMIAX local 

XROW local 

NYNOW local 

CODE local 

ZPAl local 

XTESTE local 

ZPA2. local 

YPOLAX local 

XF local 

YTESTE local 

ZPOLAX local 

ZTESTE local 

NYROW local 

XI local 

LIM local 

NYPPOL local 

IHR local 

ISEC local 

ALPHA local 

RANDC local 

IMIN local 

XMIN3 local 

RANDL local 

XDIFF local 

DXMIN3 local 

IIOOTH local 

XP0L3 local 

NXPA local 

RANDR local 

ZPOL3 local 

NXPAB local 

II local 

12 local 

Jl local 

Kl local 

NDIFFX local 


Type 

Size 

Offset 

INTEGER*4 

4 

0074 

INTEGER*4 

4 

0078 

REAL* 4 

100 

007c 

INTEGER*4 

4 

OOeO 

INTEGER*4 

4 

00e4 

CHAR*1 

1 

00e8 

REAL*4 

4 

OOea 

REAL*4 

4 

OOee 

REAL*4 

4 

00f2 

REAL*4 

100 

00f6 

REAL* 4 

4 

015a 

REAL* 4 

4 

015e 

REAL*4 

100 

0162 

REAL* 4 

4 

01c6 

INTEGER*4 

4 

Olca 

REAL* 4 

4 

Olce 

INTEGER*4 

4 

01d2 

INTEGER*4 

4 

01d5 

INTEGER*4 

4 

Olda 

INTEGER*4 

4 

Olde 

REAL* 4 

4 

01e2 

REAL* 4 

4 

01e6 

INTEGER*4 

4 

Oiea 

REAL* 4 

100 

Olee 

REAL* 4 

4 

0252 

INTEGER*4 

100 

0256 

REAL* 4 

100 

02ba 

INTEGER*4 

4 

031e 

REAL* 4 

100 

0322 

INTEGER*4 

4 

0386 

REAL* 4 

4 

038a 

REAL* 4 

100 

038e 

INTEGER*4 

4 

03f2 

INTEGER*4 

4 

03f6 

INTEGER*4 

4 

03fa 

INTEGER*4 

4 

03fe 

REAL* 4 

4 

0402 

INTEGER*4 

4 

0406 

Symbolic  Constant 


Type 


MCOORD INTEGER*4 

MSOIL INTEGER*4 

NUMCOL INTEGER*4 

NCORN INTEGER*  4 

MAXSUR INTEGER*4 


Value 


25 
5 

10 

4 

2000 


203 


''H  PAGE 

04-12-91 
12:08:04 

Microsoft  FORTRAN  Optimizing  Compiler  Version  5.00 

Global  Symbols 

Name  Class    Type  Size    Offset 

COLUML extern  ***  ***  *** 

COLUMR extern  ***  ***  *** 

COORXZ extern  ***  ***  *** 

COORYZ extern  ***  ***  *** 

GENSUR FSUBRT  ***  ***  0000 

GETTIM. extern  ***  ***  *** 

POLYGO extern  ***  ***  *** 

RNDC extern  ***  ***  *** 

TRANSF extern  ***  ***  *** 

Code  size  =  13ac  (5036) 
Data  size  =  OOOd  (13) 
Bss  size   =  040a  (1034) 

No  errors  detected 


204 


PRE/POSTPROCESSOR 
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DECLARE  SUB  PopDira  (SEARCH5,  SHOWITEMS%,  FORE%,  BACK% ,  HFORE%,  HBACK% ,  QUADRANTS, 

SHADOW%,  NUMFILES%,  SELECTFILE$,  RETURN . CODE% ) 

DECLARE  SUB  NewGetIn  (FldContent  AS  STRING,  numonly%,  MaxLen% ,  FldRow%,  LeftColumn%, 

ColorAttr%,  ReturnVar  AS  STRING,  AbortVar  AS  STRING) 

'$ INCLUDE:  ' CURRENTS. BI ' 

CLEAR  ,  ,  7000 

ON  ERROR  GOTO  LocalHandler 

KEY  15,  CHR$(4)  +  CHR$(&H4F) 
KEY  16,  CHR$(132)  +  CHR$(&H4F) 
ON  KEY (15)  GOSUB  GotEndKey 
ON  KEY (16)  GOSUB  GotEndKey 

Headlinel 
Delay  2 
ManeMenu 

END 

LocalHandler : 

GlobalHandler 
RESUME  NEXT 

GotEndKey: 

REDIM  ARRY%(2000) 

SCRNARRY.SEGMENT%  =  VARSEG ( ARRY% ( 0 ) ) 

SCRNARRY.OFFSET%  =  VARPTR( ARRY% ( 0 ) ) 
CALL  SAVESCRN(-1,  SCRNARRY . SEGMENT% ,  SCRNARRY .OFFSET% ,  RETURN. CODE% ) 
Title$  =  "Please  choose  desired  option" 
Foreground%  =  4:  Background%  =  7 
List$(0)  =  "Cancel 

Lists (1)  =  "Exit  and  save  changes       " 
List$(2)  =  "Exit  and  don't  save  changes" 

CALL  POPMENU ( Titles ,  3,  ListS(),  2,  Foreground% ,  Background%,  Foreground%, 
Background%,  "0",  1,  Choice%,  RETURN. CODE% ) 

SCRNARRY . SEGMENT%  =  VARSEG (ARRY% ( 0 ) ) 

SCRNARRY. OFFSET%  =  VARPTR ( ARRY% ( 0 ) ) 
CALL  RESTSCRN(-1,  SCRNARRY . SEGMENT% ,  SCRNARRY . OFFSET% ,  RETURN. CODE% ) 
ERASE  ARRY% 

SELECT  CASE  Choice% 
CASE  1 

RETURN 

CASE  2 

PrintData  ExitCode 
KEY (15)  OFF 
KEY (16)  OFF 
ClearVar 
ManeMenu 

CASE  3 

TextLine$(l)  =  "You  are  about  to  loose  all  your  edition" 

TextLineS(2)  =  "Please  press  'y'  to  confirm  this  operation" 

TextLine$(3)  =  "Any  other  key  will  resume  your  current  operation  " 

AskWindow  3,  TextLine$(),  KeyPressedS 

IF  KeyPressedS  =  "y"  OR  KeyPressedS  =  "Y"  THEN 

KEY (15)  OFF 

KEY (16)  OFF 

ClearVar 

ManeMenu 
ELSE 

RETURN 
END  IF 
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CASE  ELSE 

RETURN 
END  SELECT 

REM  $DYNAMIC 
SUB  ClearScrn 

CLS 

FOR  I  =  1  TO  25 

LOCATE  I,  1:  PRINT  STRING$(80,  CHRS(177)); 

NEXT  I 
END  SUB 

SUB  Delay  (cielt) 

LoopFin  =  TIMER  +  delt 

DO  WHILE  TIMER  <  LoopFin 

LOOP 
END  SUB 

SUB  Footer 

COLOR  0,  0 

CLS 

CALL  MAKEWIND(23,  4,  24,  76,  2,  1,  11,  0,  0,  "",  RETURN . CODE% ) 

COLOR  1,  11 

LOCATE  23,  15:  PRINT  "PC-STABL3D  -  3  Dimensional  Slope  Stability  Program"; 

LOCATE  24,  15:  PRINT  "  Version  2.2"; 

COLOR  0,  0 
END  SUB 

SUB  Headline 

SCREEN  0,  1,  0,  0  ** 

WIDTH  80 
COLOR  1,  7 
ClearScrn 

CALL  MAKEWIND(23,  4,  24,  76,  2,  1,  11,  0,  0,  "",  RETURN. CODE% ) 
COLOR  1,  11 

LOCATE  23,  15,  0:  PRINT  "PC-STABL3D  -  3  Dimensional  Slope  Stability  Program" 
LOCATE  24,  15,  0:  PRINT  "  Version  2.2  "; 

END  SUB 


SUB  Headlinel 

SCREEN  0,  1,  0,  0 

WIDTH  80,  25 

COLOR  1,  7 

ClearScrn 

CALL  MAKEWIND(9,  18,  16,  65,  2,  0,  7,  1,  0,  "",  RETURN. CODE% ) 

COLOR  0,  7 

PC-STABL3D  -  SLOPE  STABILITY  PROGRAM 
GRAPHICAL  PRE/POST  PROCESSOR 
Civil  Engineering  Department 
Purdue  University 
'Version  2.1  by  J.  Eduardo  Thomaz,  1987 
Version  2.2  by  G.  Moshkovich,  1990 


LOCATE 

9,  22, 

0: 

PRINT  " 

LOCATE 

10,  22, 

0: 

PRINT  " 

LOCATE 

12,  22, 

0: 

PRINT  " 

LOCATE 

13,  22, 

0: 

PRINT  " 

LOCATE 

15,  22, 

0: 

PRINT  " 

LOCATE 

16,  22, 

0: 

PRINT  " 

END  SUB 

SUB  ManeMenu 

STATIC  ExitCode  AS  INTEGER 
DO 

Headline 


Main  Menu 


List$(0) 
List$(l) 


Create  Data  File 

Edit  Existing  Data  File 
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List$(2) 
List$(3) 
List$(4) 
List$(5) 
ListS(5) 
List$(7) 
List$(8) 


Read   Data  File 
Plot  3D  Geometry- 
Plot  Cross  Sections 
Run  PCSTBL3D 

Plot  3D  Surface  Contours 
Plot  Surface  Cross  Section 
Exit  Program 


Title$  =  "     Main  Menu 
Foreground%  =  0:  Background%  =  7 

CALL  POPMENU( Titles,  9,  List${),  2,  0,  7,  Foreground% ,  Background%,  "0",  1, 
Choice%,  RETURN. CODE%) 

SELECT  CASE  Choice% 

CASE  1 

ClearVar 
InputData  ExitCode 

CASE  2 

Callers  =  "edit" 

ClearVar 

InFile  ExitCode 

IF  ExitCode  <>  666  THEN 

InputData  ExitCode 
END  IF 

CASE  3 

CallerS  =  "geometry" 

Fileln%  =  1 

InFile  ExitCode 
CASE  4 

Contour 

CASE  5 

PlotCros 

CASE  6 

SCREEN  0 

COLOR  7,  0 

CLS 

RUN  "pcstbl3d" 

CASE  7 

ReadCritFile  ExitCode 
IF  ExitCode  <>  666  THEN 

CallerS  =  "3dsurf" 

Contour 
END  IF 

CASE  8 

IF  Fileln%  <>  1  THEN 

ERROR  243 
ELSE 

ReadCritFile  ExitCode 
IF  ExitCode  <>  666  THEN 

PlotSurCr 
END  IF 
END  IF 

CASE  9 


ITEMSS(l)  =  "  You  are  about  to  quit  the  program 
ITEMSS(2)  =  "  ???  DO  YOU  WANT  TO  DO  IT  ???" 
ITEMSS(3)  =  "Press  Y  to  confirm" 
AskWindow  3,  ITEMSSO,  SELECTIONS 

IF  UCASES( SELECTIONS)  =  "Y"  THEN 

CLOSE 


208 


COLOR  7,  0 

CLS 

PRINT  "Version  2 . 1  by  J. A.  Thomas" 

PRINT  "Version  2.2  by  G.  Moshkovich" 

END 
ELSE 

LOCATE  14,  2,  0:  PRINT  " 
END  IF 


CASE  ELSE 
END  SELECT 


LOOP 
END  SUB 

SUB  PlotCros 

Headline 
COLOR  0,  1 
CALL  FASTPRT  (  "  || 

10,  7,  49,  RETURN. CODE%) 

CALL  FASTPRT("||   Enter  the  number  of  the  X  cross  section  you  want  to  check. 

11,  7,  49,  RETURN. CODE%) 

CALL  FASTPRT  ("II   (  remember  you  want  the  'N'  of  X(N)  ....) 

12,  7,  49,  RETURN. CODE%) 
CALL  FASTPRT("||   Enter  N: 

13,  7,  49,  RETURN. CODE%) 
CALL  FASTPRT  (  "  I' 

14,  7,  49,  RETURN. CODE%) 


CALL  NewGetIn(" ",  0,  2,  13,  18,  10,  ncro$,  ab$) 

IF  ab$  =  CHRS(ESC)  THEN  EXIT  SUB 
ncro  =  VAL(ncroS) 


SCREEN  9 

LOCATE  2,  24:  PRINT  "This  is  the  cross  section  of  x(";  ncro;  " ) " ; 

CALL  Scale(ncro) 

FOR  K  =  1  TO  ns 

FOR  J  =  1  TO  ny  -  1 
LINE  (y(J),  z(ncro,  J,  K))-(y(J  +  1),  z(ncro,  J  +  1,  K) ) ,  12 

NEXT  J 
NEXT  K 

FOR  K  =  1  TO  ns 
IF  utype(K)  <>  1  THEN 
FOR  J  =  1  TO  ny  -  1 

LINE  (y(J),  uz(ncro,  J,  K))-(y(J  +  1),  uz(ncro,  J  +  1,  K) ) 
13 

NEXT  J 
END  IF 
NEXT  K 

'  plot  the  boundary  conditions 
FOR  J  =  1  TO  ny 

LINE  (y(J),  zmin(ncro,  J))-(y(J),  zmin(ncro,  J)  +  dzmin(ncro,  J)),  2 
NEXT  J 


'  plot  limits  on  the  main  axis 
LeftStart  =  0 
RightStart  =  0 
FOR  J  =  1  TO  ny 

SELECT  CASE  y(J) 

CASE  yamin  TO  yamin  +  dyamin 
IF  LeftStart  =  0  THEN 
LeftStart  =  1 
IndLeftStart  =  J 
END  IF 
IndLeftFinish  =  J 
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CASE  yamax  TO  yamax  +  dyamax 
IF  RightStart  =  0  THEN 
RightStart  =  1 
IndRightStart  =  J 
END  IF 
IndRightFinish  =  J 

END  SELECT 

NEXT  J 

'calculate  vertical  coordinates  of  limiting  points 

ZLeftStart  =  (z{xaprin,  IndLeftStart ,  1)  -  z(xaprin,  IndLeftStart  -  1,  1))  / 
(y(IndLeftStart)  -  y( IndLeftStart  -  1))  *  (yamin  -  y( IndLeftStart  -  1))  +  z(xaprin, 
IndLeftStart  -  1,  1) 

ZLeftFinish  =  (z(xaprin,  IndLeftFinish  +  1,  1)  -  z(xaprin,  IndLeftFinish,  1))  / 
(y ( IndLeftFinish  +  1)  -  y( IndLeftFinish) )  *  (yarain  +  dyamin  -  y( IndLeftFinish) )  + 
z(xaprin,  IndLeftFinish,  1) 

ZRightStart  =  (z(xaprin,  IndRightStart,  1)  -  z(xaprin,  IndRightStart  -  1,  1))  / 
(y( IndRightStart)  -  y( IndRightStart  -  1))  *  (yamax  -  y( IndRightStart  -  1))  + 
z(xaprin,  IndRightStart  -  1,  1) 

ZRightFinish  =  (z(xaprin,  IndRightFinish  +1,  1)  -  z(xaprin,  IndRightFinish, 
1))  /  (y( IndRightFinish  +  1)  -  y( IndRightFinish) )  *  (yamax  +  dyamax  - 
y ( IndRightFinish) )  +  z(xaprin,  IndRightFinish,  1) 

'plot  lines  at  left  and  right  boundaries 

LINE  (yarain,  ZLeftStart )- (yamin,  ZLeftStart  +  4) 

LINE  (yamin  +  dyamin,  ZLeftFinish) -( yamin  +  dyamin,  ZLeftFinish  +  4) 

LINE  (yamax,  ZRightStart )- (yamax ,  ZRightStart  +  4) 

LINE  (yamax  +  dyamax,  ZRightFinish) - (yamax  +  dyamax,  ZRightFinish  +  4) 

LOCATE  25,  22:  PRINT  "Press  any  key  to  go  back  to  main  menu  . . . " ; 
SUSPEND$  =  INPUT$(1) 

END  SUB 

SUB  PlotSurCr 

Headline 

COLOR  0,  1 

CALL  FASTPRT  (  "  ||  " 

10,  7,  49,  RETURN. CODE%) 
CALL  FASTPRT  ("  II   Enter  the  number  of  the  X  cross  section  you  want  to  check. 

11,  7,  49,  RETURN. CODE%) 
CALL  FASTPRT  ("II   (  remember  you  want  the  'N'  of  X(N)  ....) 

12,  7,  49,  RETURN. CODE%) 
CALL  FASTPRT  ("II   Enter  N: 

13,  7,  49,  RETURN. CODE%) 
CALL  FASTPRT ( ' 


14,  7,  49,  RETURN. CODE%) 

CALL  NewGetIn(" ",  0,  2,  13,  18,  10,  ncro$,  ab$) 

IF  ab$  =  CHR$(ESC)  THEN  EXIT  SUB 

ncro  =  VAL(ncro$)      '  value  of  cross  section 

SCREEN  9 

LOCATE  2,  24:  PRINT  "This  is  the  cross  section  of  x ( " ;  ncro;  " ) " ; 

CALL  Scale (ncro) 

'WINDOW  (y(0),  y(0))-(y(ny  -  1),  y(ny  -  1)) 
'VIEW  (51,  51)-(410,  300),  1,  11 

'  plot  the  critical  surface 
FOR  K  =  1  TO  ny  -  1 

LINE  (ysur(K),  zsur(ncro,  K))-(ysur(K  +  1),  zsur(ncro,  K  +  1)),  14 
NEXT  K 

'  plot  the  piezometric  line 
FOR  K  =  1  TO  ns 
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IF  utype(K)  <>  1  THEN 
FOR  J  =  1  TO  ny  -  1 

LINE  {y{J),  uz(ncro,  J,  K))-(y(J  +  1),  uz{ncro,  J  +  1,  K) ) 
11 

NEXT  J 
END  IF 
NEXT  K 

'  plot  the  soil  profile 
FOR  K  =  1  TO  ns 

FOR  J  =  1  TO  ny  -  1 

LINE  (y(J),  z(ncro,  J,  K))-(y(J  +  1),  z(ncro,  J  +  1,  K) ) ,  13 

NEXT  J 
NEXT  K 

'  plot  the  boundary  conditions 
FOR  J  =  1  TO  ny 

LINE  (y( J) ,  zmin(ncro,  J))-(y(J),  zmin(ncro,  J)  +  dzmin(ncro,  J)),  2 
NEXT  J 

'  plot  limits  on  the  main  axis 
LeftStart  =0 
RightStart  =  0 
FOR  J  =  1  TO  ny 

SELECT  CASE  y(J) 

CASE  yamin  TO  yamin  +  dyamin 
IF  LeftStart  =  0  THEN 
LeftStart  =  1 
IndLeftStart  =  J 
END  IF  ■  • 

IndLeftFinish  =  J  ' 

CASE  yamax  TO  yamax  +  dyamax 
IF  RightStart  =  0  THEN 
RightStart  =  1 
IndRightStart  =  J 
END  IF 
IndRightFinish  =  J 

END  SELECT 

NEXT  J 

'calculate  vertical  coordinates  of  limiting  points 

ZLeftStart  =  (z(xaprin,  IndLeftStart,  1)  -  z{xaprin,  IndLeftStart  -  1,  1))  / 
{y(IndLeftStart)  -  y( IndLeftStart  -  1))  *  (yamin  -  y( IndLeftStart  -  1))  +  z(xaprin, 
IndLeftStart  -  1,  1) 

ZLeftFinish  =  (z(xaprin,  IndLeftFinish  +  1,  1)  -  z(xaprin,  IndLeftFinish,  1))  / 
(y (IndLeftFinish  +  1)  -  y ( IndLeftFinish) )  *  (yamin  +  dyamin  -  y ( IndLeftFinish) )  + 
z(xaprin,  IndLeftFinish,  1) 

ZRightStart  =  (z(xaprin,  IndRightStart,  1)  -  z(xaprin,  IndRightStart  -  1,  1))  / 
(y( IndRightStart)  -  y ( IndRightStart  -  1))  *  (yamax  -  y( IndRightStart  -  1))  + 
z(xaprin,  IndRightStart  -  1,  1) 

ZRightFinish  =  (z(xaprin,  IndRightFinish  +  1,  1)  -  z(xaprin,  IndRightFinish, 
1))  /  (y( IndRightFinish  +  1)  -  y( IndRightFinish) )  *  (yamax  +  dyamax  - 
y( IndRightFinish) )  +  z(xaprin,  IndRightFinish,  1) 

'plot  lines  at  left  and  right  boundaries 

LINE  (yamin,  ZLeftStart )- (yamin,  ZLeftStart  +  4) 

LINE  (yamin  +  dyamin,  ZLeftFinish) - (yamin  +  dyamin,  ZLeftFinish  +  4) 

LINE  (yamax,  ZRightStart )-( yamax,  ZRightStart  +  4) 

LINE  (yamax  +  dyamax,  ZRightFinish) - (yamax  +  dyamax,  ZRightFinish  +  4) 

LOCATE  25,  22:  PRINT  "Press  any  key  to  go  back  to  main  menu..."; 
SUSPENDS  =  INPUTS (1) 

END  SUB 

SUB  PrVal  (nc,  zl(),  K,  colore) 

LOCATE  K  +  3,  60:  COLOR  colore:  PRINT  USING  "####.###";  zl(K) 

LOCATE  K  +  3,  70:  COLOR  colore:  PRINT  " 
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END  SUB 

REM  $STATIC 

SUB  ReadCritFile  (ExitCode  AS  INTEGER) 

'  This  subroutine  reads  file  with  most  critical  surface  data 

Footer 

CALL  MAKEWIND(2,  3,  18,  78,  2,  11,  1,  1,  0,  " " ,  RETURN. CODE% ) 
CALL  MAKEWIND(4,  LCOL  -  2,  5,  RCOL  +  2,  2,  1,  11,  NOGROW,  NOSHADOW,  "", 
RETURN. CODE %) 

CALL  FASTPRT( "Select  the  name  of  the  file  with  the  3D  surface  you  want",  4,  LCOL, 
49,  RETURN. CODE%) 

CALL  FASTPRT("to  be  plotted.  Use  the  cursor  keys  and  press  <enter>  ",  5,  LCOL, 
49,  RETURN . CODE% ) 

DO 

CALL  PopDira( "*.*",  6,  0,  11,  0,  11,  "0",  1,  numf%,  File$,  RETURN. CODE% ) 
IF  Files  =  ""  OR  INKEY$  =  CHR$(ESC)  THEN 

ExitCode  =  666 

EXIT  SUB 
END  IF 

OPEN  Files  FOR  INPUT  AS  #2 
LINE  INPUT  #2,  LegalS 
IF  LegalS  <>  "  PCSTBL3D  v2 . 0  Critical  Surface"  THEN 

ERROR  248 

ErrorCode  =  566 

CLOSE 
ELSE 

ErrorCode  =  999 
END  IF 
LOOP  UNTIL  ErrorCode  <>  666 

COLOR  2,  1 

CALL  FASTPRT{"||   >»  READING  INPUT  FILE  DATA  <«     >»  PLEASE  WAIT  <«       || " , 

4,  9,  49,  RETURN. CODE%) 

CALL  FASTPRT  (  "  ||  ||  "  , 

5,  9,  49,  RETURN. CODE%) 

INPUT  #2,  nx,  ny 
'  ***  enter  X  coordinates  *** 

FOR  J  =  1  TO  ny 

FOR  I  =  1  TO  nx 

INPUT  #2,  xsur(I),  ysur(J),  zsur(I,  J) 

NEXT  I 
NEXT  J 

CLOSE 

CALL  FASTPRT  ("II   >»  FINISHED  READING  FILE  <«    PLEASE  PRESS  ANY  KEY  !  ...   || "  , 

4,  9,  49,  RETURN. CODE%) 

CALL  FASTPRT  (  "  ||  |  "  , 

5,  9,  49,  RETURN. CODE%) 

SUSPENDS  =  INPUTS (1) 
ClearScrn 

END  SUB 

SUB  Scale  (ncros) 

'     it  calculates  the  values  for  the  automatic  scaling 

IF  Callers  =  "geometry"  THEN 


212 


ypmin  =  y ( 1 ) 
ypmax  =  y ( ny ) 
zpmin  =  1000000000# 
zpmax  =  -1000000000# 


sort  for  maximum  and  minimum  values  of  the  soil  polygonals. 


FOR  I  =  1  TO  ns 

FOR  J  =  1  TO  ny 

IF  zpmax  <=  z(ncros,  J,  I)  THEN  zpmax  =  z(ncros,  J,  I) 
IF  zpmin  >=  z(ncros,  J,  I)  THEN  zpmin  =  z{ncros,  J,  I) 
NEXT  J 
NEXT  I 


sort  also  the  limits  for  surface  generation. 


FOR  I  =  1  TO  nx 

FOR  J  =  1  TO  ny 

IF  zpmin  >  zmin(I,  J)  THEN  zpmin  =  zmin{I,  J) 

NEXT 
NEXT 

ELSE 

ypmin  =  ysur(l) 
ypmax  =  ysur(ny) 
zpmin  =  1000000000# 
zpmax  =  -1000000000# 


' sort  for  maximum  and  minimum  values  of  the  soil  polygonals. 

FOR  J  =  1  TO  ny 

IF  zpmax  <=  zsur(ncros,  J)  THEN  zpmax  =  zsur(ncros,  J) 
IF  zpmin  >=  zsur(ncros,  J)  THEN  zpmin  =  zsur(ncros,  J) 
NEXT  J 

END  IF 
.  . . . calculation  of  parameters  for  the  graphics  window 


deltay  =  zpmax  -  zpmin 

deltax  =  ypmax  -  ypmin 

ymini  =  ypmin 

ymaxi  =  ypmax 

zmini  =  CINT(zpmin  -  (.74  *  deltax  -  deltay)  *  .5) 

zmaxi  =  CINT( zpmax  +  (.74  *  deltax  -  deltay)  *  .5) 


calling  the  graphics  routines. 


'COLOR  14,  1 

'VIEW  (53,  20)-(587,  329),  8,  2 
VIEW  (86,  40)-(552,  310),  8,  11 
WINDOW  (ymini,  zmini )- (ymaxi,  zmaxi) 

LOCATE  24,  10:  PRINT  STR$ (ymini) ; 
LOCATE  24,  35:  PRINT  "Y    A  X  I  S"; 
LOCATE  24,  68:  PRINT  STR$ (ymaxi ) ; 

LOCATE  3,  6:  PRINT  STR$ ( zmaxi ) ; 

LOCATE  10,  4:  PRINT  "Z"; 

LOCATE  12,  4:  PRINT  "A" ; 

LOCATE  13,  4:  PRINT  "X"  ; 

LOCATE  14,  4:  PRINT  "  I "  ; 

LOCATE  15,  4:  PRINT  "S"; 

LOCATE  23,  6:  PRINT  STR$ ( zmini ) ; 


END  SUB 

SUB  VecOut  (xstart,  ystart,  xstop,  ystop,  colore)  STATIC 
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LINE  (xstart,  ystart ) - ( xstop,  ystop) ,  colore 
END  SUB 
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DECLARE  SUB  NewGetIn  (FldContent  AS  STRING,  numonly%,  MaxLen% ,  FldRow%,  LeftColumn%, 
ColorAttr%,  ReturnVar  AS  STRING,  AbortVar  AS  STRING) 
'5 INCLUDE:  ' CURRENTB. BI ' 

DATA  0,0,8,0,2,5,7,6,9,0,3,4,1,3,1,4,3,0,9,6,7,5,2,0,8,0,0 

END 

LocalHandler : 

GlobalHandler 
RESUME  NEXT 

REM  $DYNAMIC 

SUB  Contour 

ON  ERROR  GOTO  LocalHandler 

REM  input  variables  to  CONREC 

REM  d(0:iub,  0:jub)  'matrix  for  the  data  surface 

REM  iub,jub  'index  bounds  of  the  data  array 

REM  xl{o:iub)         'data  array  for  columns  coordinates 

REM  yl(0:jub)         'data  array  for  row  coordinates 

REM  nc  '  number  of  contour  levels 

REM  zl(0:nc-l)        'contour  levels  in  increasing  order 

REM  vecout  '  an  external  subroutine  to  plot  the  contour  lines 

REM  false  and  true  Boolean  values 

CALL  Footer 

IF  Callers  =  "geometry"  THEN 

CALL  MAKEWIND(2,  3,  18,  78,  2,  11,  1,  0,  0,  "",  RETURN. CODE% ) 
CALL  FASTPRT ( " y 

10,  9,  49,  RETURN. CODE%) 
CALL  FASTPRT  ("II   Enter  the  number  of  the  soil  layer  you  want  to  have  the 

11,  9,  49,  RETURN. CODE%) 
CALL  FASTPRT  ("II   contours  plotted: 

12,  9,  49,  RETURN. CODE%) 
CALL  FASTPRT ("II   Soil  layer  number  =     Enter  number  of  contour  levels: 

13,  9,  49,  RETURN. CODE%) 
CALL  FASTPRT  ("II  (number  of  levels  <=  14) 

14,  9,  49,  RETURN .CODE%) 
CALL  FASTPRT (  ' 


15,  9,  49,  RETURN. CODE%) 

CALL  NewGetIn (". .",  0,  2,  13,  32,  10,  soil$,  ab$) 
IF  ab$  =  CHR$(ESC)  THEN  EXIT  SUB 
soil  =  VAL(soil$) 
ELSE 

CALL  MAKEWIND(2,  3,  18,  78,  2,  11,  1,  0,  0,  "",  RETURN. CODE% ) 
CALL  FASTPRT ( " 


10,  9,  49,  RETURN. CODE%) 

CALL  FASTPRT("||   You  chose  to  plot  the  contours  of  the  most  critical  surface 

11,  9,  49,  RETURN. CODE%) 

CALL  FASTPRT  ("II   in  your  geometry: 

12,  9,  49,  RETURN. CODE%) 

CALL  FASTPRT("||  Now  please  enter  the  number  of  contour  levels: 

13,  9,  49,  RETURN. CODE%) 

CALL  FASTPRT  ("II  (number  of  levels  <=  14) 

14,  9,  49,  RETURN. CODE%) 
CALL  FASTPRT  (  "  I' 


15,  9,  49,  RETURN. CODE%) 

END  IF 

loopl : 

CALL  NewGetIn (". .",  0,  2,  13,  67,  10,  nc$,  ab$) 

IF  abS  =  CHR$(ESC)  THEN  EXIT  SUB 

nc  =  VAL(ncS) 

IF  nc  >  14  GOTO  loopl 


215 


RESTORE 

iub  =  nx  -  1 :  jub  =  ny  -  1 

DIM  d(iub  +  1,  jub  +  1),  zl(nc) 

IF  Caller$  =  "geometry"  THEN 

xmin  =  x(l):  xmax  =  x(nx):  ymin  =  y(l):  ymax  =  y(ny) 
ELSE 

xmin  =  xsur(l):  xmax  =  xsur(nx):  ymin  =  ysur(l):  ymax  =  ysur(ny) 
END  IF 


SCREEN  9 

'SCALE  THE  FIGURE 

deltay  =  ymax  -  ymin 

deltax  =  xmax  -  xmin 

xmini  =  xmin 

xmaxi  =  xmax 

ymini  =  CINT(ymin  -  (.89  *  deltax  - 

ymaxi  =  CINT(ymax  +  (.89  *  deltax  - 

WINDOW  (xmini,  ymini )- (xmaxi,  ymaxi) 

VIEW  (51,  51)-(410,  300),  0,  11 

LOCATE  23,  6:  PRINT  STR$(xmin); 
LOCATE  24,  25:  PRINT  "X   AXIS"; 
LOCATE  23,  50:  PRINT  STR$(xmax); 
LOCATE  4,  2:  PRINT  STRS ( ymaxi ) ; 


deltay) 
deltay) 


5) 
5) 


LOCATE 

10, 

2: 

PRINT 

"Y" 

:  LOCAT 

LOCATE 

13, 

2: 

PRINT 

"X" 

LOCATE 

14, 

2: 

PRINT 

"I" 

LOCATE 

15, 

2: 

PRINT 

"S" 

LOCATE 

22, 

2: 

PRINT 

str; 

J (ymini) ; 

LOCATE  12,  2:  PRINT  "A" 


dmin  =  1000000000# 
dmax  =  -10000000000# 

'  *******  format  data  for  geometry  plot  ****** 

IF  Callers  =  "geometry"  THEN 

FOR  I  =  1  TO  nx 


FOR  J  =  1 
xl(I)  = 
yl(J)  = 
d(I,  J) 
IF  d(I, 
IF  d(I, 

NEXT  J 
NEXT  I 


TO  ny 
x(I) 

y(J) 

=  z ( I ,  J,  soil ) 
J)  <=  dmin  THEN 
J)  >=  dmax  THEN 


dmin 
dmax 


d(I, 
d(I, 


J) 
J) 


ELSEIF  Callers  =  "3dsurf"  THEN 

FOR  I  =  1  TO  nx 
FOR  J  =  1  TO  ny 
xl(I)  =  xsur(I) 
yl(I)  = 
d(I,  J) 
IF  d(I, 
IF  d(I, 
NEXT  J 
NEXT  I 


ysur ( I ) 

=  zsur(I,  J) 

J)  <=  dmin  THEN  dmin  =  d(I,  J) 

J)  >=  dmax  THEN  dmax  =  d(I,  J) 


END  IF 


LOCATE  2,  60:  PRINT  "CONTOUR  LEVELS" 
FOR  I  =  1  TO  nc 

zl(I)  =  dmin  +  I  *  (dmax  -  dmin)  /  nc 

CALL  PrVal(nc,  zl(),  I,  I) 
NEXT  I 
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'  ******  Select  the  palette  of  colors  to  be  used  on  the  contours  ** 

PALETTE  8,  11:  PALETTE  7,  5:  PALETTE  6,  13:  PALETTE  10,  3 

PALETTE  5,  25:  PALETTE  4,  9:  PALETTE  3,  17:  PALETTE  2,  1 

PALETTE  1,  8:  PALETTE  9,  15:  PALETTE  11,  19:  PALETTE  12,  44 

PALETTE  13,  46:  PALETTE  14,  5  5 

GOSUB  conrec 

COLOR  7,  0 

LOCATE  2,  9:  PRINT  "Press  any  key  to  go  back  to  main  menu  ..." 

SUSPEND$  =  INPUT$(1) 

EXIT  SUB 

END 


conrec: 

'  local  declarations  for  conrec 

DIM  h{5)     'relative  heights  of  the  box  above  contour 

DIM  ish(5)   'sign  of  h( ) 

DIM  xh(5)    'X  coordinate  of  box 

DIM  yh(5)    'y  coordinate  of  box 

DIM  im(4)    'maping  from  vertex  numbers  to  x  offsets 

DIM  castab(3,  3,  3)   'case  switch  table 

DIM  jm(4)    'maping  from  vertex  numbers  to  offsets 

im(l)  =  0:  im(2)  =  1:  im(3)  =  1:  im(4)  =  0 
jm(l)  =  0:  jm(2)  =  0:  jm(3)  =  1:  jm(4)  =  1 

FOR  K%  =  1  TO  3  '  ^ 

FOR  J%  =  1  TO  3 
FOR  1%  =  1  TO  3 

READ  castab(K%,  J%,  1%) 
NEXT  1% 
NEXT  J% 
NEXT  K% 

'CHECK  THE  INPUT  PARAMETERS  FOR  VALIDITY 

prmerr  =  FALSE 

IF  (iub  <=  1  OR  jub  <=  1)  THEN  prmerr  =  TRUE 

IF  (nc  <=  1)  THEN  prmerr  =  TRUE 

FOR  K  =  2  TO  nc 

IF  (zl(K)  <=  zl(K  -  1))  THEN  prmerr  =  TRUE  .  ^^. 

NEXT  K 

IF  (prmerr)  THEN  msg$  =  "  Error  in  input  parameters  ":  RETURN 

'  SCAN  THE  ARRAY,  TOP  DOWN,  LEFT  TO  RIGHT 

FOR  J  =  jub  TO  1  STEP  -1 
FOR  I  =  1  TO  iub 

'  find  lowest  vertex 

IF  {d(I,  J)  <  d(I,  J  +  1))  THEN  dmin  =  d(I,  J)  ELSE  dmin  =  d(I,  J  +  1) 
IF  (d(I  +  1,  J)  <  dmin)  THEN  dmin  =  d(I  +  1,  J) 
IF(d(I+l,  J+l)<  dmin)  THEN  dmin  =d(I+l,  J+1) 

'  find  highest  vertex 

IF  (d(I,  J)  >  d(I,  J  +  1))  THEN  dmax  =  d(I,  J)  ELSE  dmax  =  d(I,  J  +  1) 
IF  (d(I  +  1,  J)  >  dmax)  THEN  dmax  =  d(I  +  1,  J) 
IF(d(I+l,  J+1)  >  dmax)  THEN  dmax  =d(I+l,  J+1) 
IF  (dmax  <  zl(l)  OR  dmin  >  zl(nc))  THEN  GOTO  noneinbox 

'  DRAW  EACH  CONTOUR  WITHIN  THIS  BOX 

FOR  K  =  1  TO  nc 

IF  (zl(K)  <  dmin  OR  2l(K)  >  dmax)  THEN  GOTO  noneintri 
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FOR  M  =  5  TO  1  STEP  -1 

IF  M  >  1  THEN 

h(M)  =  d(I  +  im(M  -  1),  J  +  jm(M  -  1))  -  zl(K) 

xh(M)  =  xl(I  +  im(M  -  1) ) 

yh{M)  =  yl(J  +  jm{M  -  1) ) 
END  IF 

IF  M  =  1  THEN 

h(l)  =  (h(2)  +  h(3)  +  h(4)  +  h(5))  /  4 

xh(l)  =  (xl(I)  +  xl(I  +  1))  /  2 

yh(l)  =  (yl(J)  +  yl(J  +  1))  /  2 
END  IF 

IF  h(M)  >  0  THEN 

ish(M)  =  3 
ELSEIF  (h(M)  <  0)  THEN 

ish(M)  =  1 
ELSE 

ish(M)  =  2 
END  IF 

NEXT  M 

'  SCAN  EACH  TRIANGLE  IN  THE  BOX 

FOR  M  =  2  TO  5 
ml  =  M:  m2  =  1:  m3  =  M  +  1 
IF  m3  =  6  THEN  m3  =  2 
casa  =  CINT(castab( ish(ml) ,  ish(m2),  ish(m3))) 
IF  casa  =  0  THEN  GOTO  caseO 
ON  casa  GOTO  easel,  case2,  case3,  case4,  caseS,  caseS,  case?,  caseS,  case9 

'line  between  vertices  ml  and  m2 

easel : 

xl  =  xh(ml):  yl  =  yh(ml):  x2  =  xh(m2):  y2  =  yh(m2) 
GOTO  drawit 

case2 : 

xl  =  xh{m2):  yl  =  yh{m2):  x2  =  xh(m3):  y2  =  yh(m3) 
GOTO  drawit 

case3 : 

xl  =  xh(m3):  yl  =  yh(m3):  x2  =  xh(ml):  y2  =  yh(ml) 
GOTO  drawit 

case4: 

xl  =  xh(ml):  yl  =  yh(ml) 

x2  =  (h(m3)  *  xh{m2)  -  h(m2)  *  xh(m3))  /  {h(m3)  -  h(m2)) 
y2  =  (h(m3)  *  yh{m2)  -  h(m2)  *  yh(m3))  /  (h(m3)  -  h(m2)) 
GOTO  drawit 

caseB: 

xl  =  xh(m2):  yl  =  yh(m2) 

x2  =  (h(ml)  *  xh(m3)  -  h(m3)  *  xh(ml))  /  (h(ml)  -  h(m3)) 
y2  =  (h(ml)  *  yh(m3)  -  h(m3)  *  yh(ml))  /  (h(ml)  -  h(m3)) 
GOTO  drawit 

cases : 

xl  =  xh(m3):  yl  =  yh(m3) 

x2  =  (h(m2)  *  xh(ml)  -  h(ml)  *  xh(m2))  /  {h(m2)  -  h(ml)) 
y2  =  (h(m2)  *  yh(ml)  -  h(ml)  *  yh(m2))  /  (h(m2)  -  h(ml)) 
GOTO  drawit 

case? : 

xl  =  (h(m2)  *  xh(ml)  -  h(ml)  *  xh(m2))  /  (h(m2)  -  h(ml)) 
yl  =  (h(m2)  *  yh(ml)  -  h(ml)  *  yh(m2))  /  (h(m2)  -  h(ml)) 
x2  =  (h(m3)  *  xh(m2)  -  h(m2)  *  xh(m3))  /  {h(m3)  -  h(m2)) 
y2  =  (h(m3)  *  yh{m2)  -  h(m2)  *  yh(m3))  /  (h(m3)  -  h(m2)) 
GOTO  drawit 

cases : 

xl  =  (h(m3)  *  xh(m2)  -  h(m2)  *  xh(m3))  /  (h(m3)  -  h(m2)) 
yl  =  {h(m3)  *  yh(m2)  -  h(m2)  *  yh(m3))  /  (h(m3)  -  h(m2)) 
x2  =  (h(ml)  *  xh(m3)  -  h(m3)  *  xh(ml))  /  (h(ml)  -  h(m3)) 
y2  =  (h(ml)  *  yh(m3)  -  h(m3)  *  yh(ml))  /  (h(ml)  -  h(m3)) 
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GOTO  drawit 

case9: 

xl  =  (h(ml)  *  xh(m3)  -  h(m3)  *  xh(ml))  /  (h(ml)  -  h(m3)) 
yl  =  (h(ml)  *  yh(m3)  -  h(m3)  *  yh(ml))  /  (h(ml)  -  h(m3)) 
x2  =  (h(m2)  *  xh(ml)  -  h(ml)  *  xh{m2))  /  (h(m2)  -  h(ml)) 
y2  =  (h(m2)  *  yh(ml)  -  h(ml)  *  yh(m2))  /  (h(m2)  -  h(ml)) 
GOTO  drawit 

drawit: 

CALL  VecOut(xl,  yl,  x2 ,  y2 ,  K) 

caseO: 
NEXT  M 

noneintri: 
NEXT  K 

noneinbox: 

NEXT  I 

NEXT  J 
RETURN 


END  SUB 
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'$ INCLUDE:  ' CURRENTS. BI ' 

REM  $DYNAMIC 

SUB  GlobalHandler 

SELECT  CASE  ERR 


CASE  5 

SCREEN  0,  1,  0,  0 

COLOR  7,  0 

CLS 

PRINT  "Memory  overflow.  Reboot  system  or  check  hardware  configuration' 

BEEP 

END 


CASE  243 

TextLine$(l) 
ErrWindow  1, 

CASE  244 

TextLine$ ( 1) 
TextLineS (2 ) 
ErrWindow  2, 

CASE  245 

TextLineS ( 1 ) 
TextLine$(2) 
ErrWindow  2, 

CASE  2  46 

TextLineS (1) 
TextLineS (2) 
TextLineS (3 ) 
ErrWindow  3, 


CASE  247 

TextLineS ( 1 
TextLineS (2 
ErrWindow  2 

CASE  248 

TextLineS ( 1 
TextLineS (2 
ErrWindow  2 

CASE  249 

TextLineS ( 1 
TextLineS (2 
ErrWindow  2 

CASE  250 

TextLineS ( 1 
TextLineS (2 
ErrWindow  2 

CASE  251 

TextLineS ( 1 
TextLineS (2 
ErrWindow  2 

CASE  2  52 

TextLineS ( 1 
TextLineS (2 
ErrWindow  2 

CASE  253 

TextLineS ( 1 
TextLineS (2 
ErrWindow  2 

CASE  2  54 

TextLineS ( 1 
TextLineS (2 


=  "You  must  read  in  data  file  first" 
TextLine$(),  243 

=  "The  first  point  of  surface  generation  limits" 
=  "is  beyond  the  specified  slope" 
TextLineS{),  244 

=  "The  limits  of  termination  of  surface  generation" 
=  "exceed  slope  boundaries  in  Y  direction" 
TextLineS(),  245 

=  "The  upper  boundary  of  the  generated  sliding  surface' 
=  "can  not  be  above  the  soil  surface" 
=  "Please,  reenter  vertical  constraints" 
TextLine$(),  246 


=  "Unexpected  program  error.  Please  contact  costumer  support' 
=  "Please  press  a  key  to  continue" 
TextLineSO,  247 


=  "This  file  is  not  a  PCSTBL3D  critical  surface  file' 
=  "Please  press  any  key  to  continue" 
TextLineS(),  248 


=  "This  file  is  not  a  PCSTBL3D  data  file' 
=  "Please  press  any  key  to  continue" 
TextLineS(),  249 


=  "Valid  porepressure  model  types  are  1  or  2  only' 
=  "Please  press  a  key  to  continue" 
TextLineS(),  250 


=  "Maximum  number  of  data  points" 

=  "in  Y  direction  is  limited  to  "  +  STR$ (MAXCOORD ) 

TextLineSO,  251 


=  "Maximum  number  of  data  points" 

=  "in  X  direction  is  limited  to  "  +  STR$ (MAXCOORD ) 

TextLineSi),  252 


=  "Maximum  number  of  soils" 

=  "is  limited  to  "  +  STRS (MAXSOIL) 

TextLineS!),  253 


=  "Input  number  contains  invalid  character" 
=  "Please  press  a  key  to  continue" 
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ErrWindow  2,  TextLine$(),  254 


CASE  255 

TextLine$(l) 
TextLine$(2) 
ErrWindow  2 , 


=  "Invalid  file  name" 

=  "Please  press  a  key  to  continue" 

TextLine$(),  255 


CASE  ELSE 

TextLineS(l) 
TextLine$(2) 
ErrWindow  2 , 


=  "Fatal  runtime  error.  Please  contact  costumer  support" 
=  "Press  a  key  to  continue" 
TextLine$ ( ) ,  ERR 


END  SELECT 


END  SUB 
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DECLARE  FUNCTION  ASCRight%  (Arg5) 
'S INCLUDE:  ' CURRENTS . BI ' 

LocalHandler : 
GlobalHandler 
RESUME  NEXT 

REM  $DYNAMIC 

DEFINT  A-Z 

FUNCTION  ASCRight  (Arg$) 

'Function  AscRight  returns  ASCII  code  of  the  right  character  of  a  string 

ASCRight  =  ASC (RIGHT$ ( Arg$ ,  1)) 

END  FUNCTION 

DEFSNG  A-Z 

SUB  CapsCheck  (Eflag%)  STATIC 

'returns  spaces  if  not  on,  letters  if  on 

DEF  SEG  =  0 

CAPS  =  " 

NIM$  =  "    " 

IF  Eflag%  =  FALSE  THEN  IKE$  =  " 

IF  Eflag%  =  TRUE  THEN  IKE$  =  "INS" 

IF  PEEK(&H417)  AND  64  THEN  CAP?  =  "CAPS" 

IF  PEEK(&H418)  AND  64  THEN  CAP$  =  " 

IF  PEEK(&H417)  AND  32  THEN  NIM$  =  "NUM" 

IF  PEEK(&H418)  AND  32  THEN  NIMS  =  " 

IF  (PEEK{&H417)  AND  2)  OR  (PEEK(&H417)  AND  1)  THEN  CAP$  =  "CAPS" 

IF  (PEEK(&H418)  AND  2)  OR  (PEEK(&H418)  AND  1)  THEN  CAP$  =  " 

CALL  FASTPRT(IKE$  +  "  "  +  NIM$  +  "  "  +  CAP$,  2,  56,  112,  RETURN. CODE% ) 

END  SUB 

DEFINT  A-Z 

SUB  NewGetIn  (FldContent  AS  STRING,  numonly,  MaxLen,  FldRow,  LeftColumn,  ColorAttr, 

ReturnVar  AS  STRING,  AbortVar  AS  STRING)  STATIC 


Author: 
Created: 
Bugs  : 


G.  Moshkovich 
9/90 


Purpose: 

Subroutine  NewGetIn  creates  input  field  at  the  specified  location,  with 

the  specified  color  and  reads  string  input  from  this  field. 

It  has  the  same  parameters  format  as  the  subroutine  Getin,  written 

by  J.  Thomaz,  the  difference  is  the  enhaced  string  editing  options  and 

extended  variety  of  the  abort  variable  values. 


Parameters: 

Input : 
FldContent 
NumOnly 
MaxLen 
FldRow 
LeftColumn 
ColorAtt 

Output : 
ReturnVar 
AbortVar 


Initial  content  of  the  input  field  (shows  periods  if  none) 

1  if  numeric  input  field  othervise  0 

Maximum  length  of  the  input  field 

Row  where  the  input  field  is  located 

Left  column  of  the  input  field 

Color  attribute  of  the  input  field 


Return  string 

Variable  returning  the  ASCII  code  of  the  abort  character 


Externals: 

CapsCheck 
FastPrt 
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'ASCRight 
'Code  begins: 


AbortVar  =  "" 
FldColumn  =  LeftColumn 
Tmp$  =  FldContent 
InsFlag  =  FALSE 

IF  FldContent  =  ""  THEN 

CALL  FASTPRT ( STRINGS (MaxLen,  CHR$(PER)),  FldRow,  FldColumn,  ColorAttr, 

RETURN. CODE%) 

ELSE 

CALL  FASTPRT(SPACE$(MaxLen) ,  FldRow,  FldColumn,  ColorAttr,  RETURN. CODE% ) 
CALL  FASTPRT{TmpS,  FldRow,  FldColumn,  ColorAttr,  RETURN. CODE% ) 

END  IF 

LOCATE  FldRow,  FldColumn,  1,  6,  7 
DO 

DO 

CapsCheck  InsFlag 
K$  =  INKEy$ 
LOOP  WHILE  KS  =  "" 

IF  (LEFT$(K$,  1)  <>  CHR$(0))  AND  (ASCRight (K$ )  >=  32)  AND  (ASCRight (K$ )  <= 
126)  THEN 

IF  (numonly  <>  FALSE)  AND  ( (ASCRight (K$ )  <>  46)  AND  ( (ASCRight ( KS )  <  48)  OR 
( ASCRight ( K$ ) )  >  57))  THEN 
BEEP 

ELSEIF  ((FldColumn  <  LeftColumn  +  MaxLen)  AND  (LEN(Tmp$)  <  MaxLen))  AND 
(InsFlag  =  FALSE)  THEN 

Tmp$  =  LEFTS (Tmp$,  FldColumn  -  LeftColumn)  +  KS  +  RIGHTS (TmpS,  LEN(TmpS) 

-  (FldColumn  -  LeftColumn)) 

CALL  FASTPRT(Tmp$,  FldRow,  LeftColumn,  ColorAttr,  RETURN . CODE% ) 
IF  (FldColumn  <  LeftColumn  +  MaxLen  -  1)  THEN 

FldColumn  =  FldColumn  +  1 
END  IF 

ELSEIF  (FldColumn  <  LeftColumn  +  MaxLen)  AND  (InsFlag  =  TRUE)  THEN 

TmpS  =  LEFTS (TmpS,  FldColumn  -  LeftColumn)  +  KS  +  RIGHTS (TmpS,  LEN(TmpS) 

-  (FldColumn  -  LeftColumn)  -  1) 

CALL  FASTPRT(TmpS,  FldRow,  LeftColumn,  ColorAttr,  RETURN . CODE% ) 
IF  (FldColumn  <  LeftColumn  +  MaxLen  -  1)  THEN 

FldColumn  =  FldColumn  +  1 
END  IF 

ELSE 

SOUND  600,  2 
END  IF 

LOCATE  FldRow,  FldColumn,  1 

ELSE 

Ky  =  ASCRight (KS) 

SELECT  CASE  Ky 

CASE  LEFT 

IF  FldColumn  >  LeftColumn  THEN 

FldColumn  =  FldColumn  -  1 

LOCATE  FldRow,  FldColumn,  1 
ELSE 

SOUND  600,  2 
END  IF 

CASE  RIGHT 
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IF  FldColumn  <  LeftColumn  +  MaxLen  -  1  THEN 

IF  (FldColumn  -  LeftColumn  +  1)  <=  LEN(Tmp$)  THEN 
FldColumn  =  FldColumn  +  1 
LOCATE  FldRow,  FldColumn,  1 
END  IF 
ELSE 

SOUND  600,  2 
END  IF 

CASE  DEL,  BKSP 

IF  (Ky  =  DEL)  AND  (FldColumn  -  LeftColumn  <  LEN(Tmp$))  THEN 
Tmp$  =  LEFT$(TmpS,  FldColumn  -  LeftColumn)  +  RIGHT$(Tmp$, 
LEN(Tmp$)  -  (FldColumn  -  LeftColumn)  -  1) 

ELSEIF  (Ky  =  BKSP)  AND  (FldColumn  >  LeftColumn)  THEN 

Tmp$  =  LEFT$(Tmp$,  FldColumn  -  LeftColumn  -  1)  +  RIGHTS (Tmp$, 
LEN(Tmp$)  -  (FldColumn  -  LeftColumn)) 

FldColumn  =  FldColumn  -  1 
END  IF 

CALL  FASTPRT(Tmp$  +  SPACES (MaxLen  "  LEN(Tmp$)),  FldRow,  LeftColumn, 
ColorAttr,  RETURN. CODE%) 

LOCATE  FldRow,  FldColumn,  1 

CASE  INS 

IF  InsFlag  =  TRUE  THEN 

LOCATE  FldRow,  FldColumn,  1,  5,  7 

InsFlag  =  FALSE 
ELSEIF  InsFlag  =  FALSE  THEN 

LOCATE  FldRow,  FldColumn,  1,  0,  7 

InsFlag  =  TRUE 
END  IF 

CASE  HOME 

FldColumn  =  LeftColumn 
LOCATE  FldRow,  FldColumn,  1 

CASE  ENDK 

IF  LEN(Tmp$)  <  MaxLen  THEN 

FldColumn  =  LeftColumn  +  LEN(Tmp5) 
ELSE 

FldColumn  =  LeftColumn  +  LEN(Tmp$)  -  1 
END  IF 
LOCATE  FldRow,  FldColumn,  1 

CASE  ENTER,  F2 

ReturnVar  =  Tmp$ 
EXIT  SUB 

CASE  DOWN,  UP,  PGDN,  PGUP 
AbortVar  =  CHR$(Ky) 
EXIT  SUB 

CASE  ESC 

AbortVar  =  CHR$(ESC) 
EXIT  SUB 

CASE  ELSE 

SOUND  600,  2 

END  SELECT 
END  IF 
LOOP  UNTIL  Ky  =  3 
END  SUB 

DEFSNG  A-Z 

SUB  SoundBeep  STATIC 

SOUND  1000,  1:  SOUND  1500,  2:  SOUND  500,  1 
END  SUB 
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SUB  Strip  (rax$,  clean$)  STATIC 
FOR  SS  =  1  TO  LEN(rax$) 

IF  MID$(rax$,  SS,  2)  =  "   "  THEN 
rax$  =  LEFTS (rax$,  SS  -  1) 
EXIT  FOR 
END  IF 
NEXT  SS 
clean$  =  rax$ 
END  SUB 
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DECLARE  FUNCTION  LJustStr$  (Arg!) 

DECLARE  SUB  NewGetIn  (FldContent  AS  STRING,  numonly%,  MaxLen% ,  FldRow%,  Lef tColumn% , 

ColorAttr%,  ReturnVar  AS  STRING,  AbortVar  AS  STRING) 

DECLARE  SUB  Edit  (FldContent  AS  STRING,  numonly%,  MaxLen%,  FldRow%,  LeftColumn%, 

ColorAttr%,  ReturnVar  AS  STRING,  AbortVar  AS  STRING) 

'$ INCLUDE:  ' CURRENTS. HI ' 

END 

LocalHandler : 
GlobalHandler 
RESUME  NEXT 

REM  SDYNAMIC 

SUB  AskWindow  (NLines  AS  INTEGER,  TextLine()  AS  STRING,  KeyPressed  AS  STRING) 

SCREEN  0,  1,  0,  0 
COLOR  0,  7 

PCOPY  0,  4 

'MAKEWIND  {ULR%,  ULC% ,  LRR% ,  LRC% ,  FRAME%,  FORE%,  BACK% ,  GROW% ,  SHADOW% ,  LABELS) 

MaxLine$  =  TextLine(l) 
FOR  I  =  1  TO  NLines 

IF  LEN(TextLine(I) )  >  LEN (MaxLine$ )  THEN 
MaxLine$  =  TextLine(I) 
Maxind  =  I 
END  IF 
NEXT 

IF  (NLines  MOD  2=0)  THEN 

LROW%  =  12  +  CINT( NLines  /  2) 
ELSE 

LROW%  =  11  +  CINT( NLines  /  2) 
END  IF 

UROW%  =  13  -  CINT( NLines  /  2) 
ULC%  =  38  -  LEN(MaxLine$)  /  2 
LRC%  =  41  +  LEN(MaxLine$)  /  2 

CALL  MAKEWIND (UROW%,  ULC% ,  LROW% ,  LRC% ,  2,  4,  7,  0,  TRUE,  "",  RETURN . CODE% ) 

FOR  I  =  1  TO  NLines 

LOCATE  12  -  CINT( NLines  /  2)  +  I,  CINT(40  -  LEN (TextLine ( I ) )  /  2),  0 

PRINT  TextLine ( I ) ; 
NEXT  I 

KeyPressed  =  INPUT$(1) 
PCOPY  4,  0 

SCREEN  0,  1,  0,  0 

END  SUB 

SUB  ClearVar 


' reinitialize  variables 

Nam$  =  " " 

nx  =  0:  ny  =  0:  ns  =  0 

ERASE  X,  y,  z 

xaprin  =  0:  yamin  =  0:  dyamin  =  0:  yamax  =  0:  dyamax  =  0 

ERASE  xminl,  dxminl,  xmin2 ,  dxmin2 

ERASE  zmin,  dzmin 

ERASE  Gama,  C,  Fi 

ERASE  utype,  ru,  uz 

END  SUB 

SUB  ErrWindow  (NLines  AS  INTEGER,  TextLine()  AS  STRING,  ErrCode  AS  INTEGER) 
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SCREEN  0,  1,  0,  0 

COLOR  0,  7  • 

SoundBeep 

PCOPY  0,  4 

'MAKEWIND  (ULR%,  ULC% ,  LRR% ,  LRC% ,  FRAME % ,  FORE% ,  BACK% ,  GROW% ,  SHADOW% ,  LABEL$) 

MaxLine$  =  TextLine{l) 
FOR  I  =  1  TO  NLines 

IF  LEN{TextLine(I) )  >  LEN(MaxLine$ )  THEN 
MaxLine$  =  TextLine(I) 
Maxind  =  I 
END  IF 
NEXT 

ULC%  =  38  -  LEN(MaxLine$)  /  2 

LRC%  =  41  +  LEN(MaxLine$)  /  2 

IF  NLines  MOD  2=0  THEN 

UROW%  =  13  -  NLines  \  2 

LROW%  =  12  +  NLines  \  2  • 

ELSEIF  NLines  =  1  THEN 

UROW%  =  13  -  NLines  \  2 

LROW%  =  12  +  NLines  \  2  +  1 
ELSE 

UROW%  =  13  -  NLines  \  2  -  1 

LROW%  =  12  +  NLines  \  2 
END  IF 

CALL  MAKEWIND (UROW%,  ULC% ,  LROW% ,  LRC% ,  2,  4,  7,  0,  SHADOW,  "ERROR  "  + 
STR$(ErrCode) ,  RETURN. CODE% ) 

FOR  I  =  1  TO  NLines 

LOCATE  12  -  CINT( NLines  /  2)  +  I,  CINT(40  -  LEN{TextLine ( I ) )  /  2),  0 

PRINT  TextLine( I) ; 
NEXT  I 

DO:  LOOP  WHILE  INKEY$  =  " " 
PCOPY  4,  0 

END  SUB 

FUNCTION  Filter$  (Txt$,  FilterString$ ,  Key$)  STATIC 
Temp$  =  " " 
TxtLength  =  LEN(Txt$) 

FOR  I  =  1  TO  TxtLength  'Isolate  each  character  in 

C$  =  MID$(TxtS,  I,  1)  'the  string 

IF  Keys  =  "N"  THEN 

'If  the  character  is  _not_  in  the  filter  string,  save  it: 
IF  INSTR(FilterString$,  C$)  =  0  THEN 

TempS  =  TempS  +  C$ 
END  IF 
ELSEIF  Key$  =  "Y"  THEN 

'If  the  character  _is_  in  the  filter  string,  save  it: 
IF  INSTR(FilterString$,  C$)  <>  0  THEN 

Temp$  =  TempS  +  C$ 
END  IF 
END  IF 
NEXT  I 

Filters  =  TempS 
END  FUNCTION 

SUB  InputData  (ExitCode  AS  INTEGER) 

ON  ERROR  GOTO  LocalHandler 
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KEY (15)  ON 
KEY (16)  ON 

ExitCode  = 
Footer 


'Write  a  footer 


-Start  main  input  loop- 


DO 


SELECT  CASE  ExitCode 
CASE  0,  1 


'Open  data  file 
OpenDataFile  ExitCode 
IF  ExitCode  =  566  THEN 

EXIT  DO 
ELSE 

ExitCode  =  10 
END  IF 

CASE  10,  11 


'  Input  number  of  points  in  x  and  y  direction,  and  number  of  soils 
NumOfGridPoints  ExitCode 
IF  ExitCode  =  665  THEN 

ExitCode  =  1 
ELSE 

ExitCode  =  20 
END  IF 


CASE  20,  2  2 


'  Input  coordinats   X  and  Y    of  points 

XYCoord  ExitCode 

IF  ExitCode  =  656  THEN 

ExitCode  =  11 
ELSE 

ExitCode  =  30 
END  IF 

CASE  30,  33 


'  Input  coordinates  Z  of  the  soil  layers  for  each  XY  pair 

SoilCoord  ExitCode 

IF  ExitCode  =  556  THEN 

ExitCode  =  22 
ELSE 

ExitCode  =  40 
END  IF 


CASE  40,  44 


'Input  surface  generation  data:  main  axis  number  N,  and 
'initiation  and  termination  limits  along  the  main  axis 
SurfGenerDatal  ExitCode 
IF  ExitCode  =  666  THEN 

ExitCode  =  33 
ELSE 

ExitCode  =  50 
END  IF 


CASE  50,  55 


'Input  surface  generation  data: 
'on  the  axis  parallel  to  main 
SurfGenerData2  ExitCode 
IF  ExitCode  =  666  THEN 


left  and  right  initiation  values 
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ExitCode  =  44 
ELSE 

ExitCode  =  60 
END  IF 

CASE  60,  66 


'Input  searching  constraints  in  vertical  direction 
VerticConstr  ExitCode  . 

IF  ExitCode  =  666  THEN 

ExitCode  =  55       ' 
ELSE 

ExitCode  =  70 
END  IF 


CASE  70,  77 


'Input  Soil  properties  data:  unit  weight,  cohesion  and  shear 
'angle  for  each  soil. 
SoilPropData  ExitCode 
IF  ExitCode  =  666  THEN 

ExitCode  =  66 
ELSE 

ExitCode  =  80 
END  IF 


CASE  80,  88 


'Input  pore  pressure  data 
PorePresData  ExitCode 
IF  ExitCode  =  666  THEN 

ExitCode  =  77 
ELSE 

ExitCode  =  90 
END  IF 


CASE  90 


'Print  data  to  the  file 

PrintData  ExitCode 

IF  ExitCode  =  666  THEN 

ExitCode  =  88 
ELSE 

ExitCode  =  100 
END  IF 

CASE  ELSE 

ExitCode  =  100 
END  SELECT 
LOOP  UNTIL  ExitCode  =  100 

IF  ExitCode  <>  666  THEN 

TextLine$(l)  =  "Would  you  like  to  check  geometry" 
TextLine$(2)  =  "of  the  data  file  you  just  edited  ?   y/[n]' 
AskWindow  2,  TextLine$(),  KeyPressed$ 
IF  KeyPressed$  =  "y"  OR  KeyPressed$  =  "Y"  THEN 
Callers  =  "geometry" 
Contour 
END  IF 

END  IF 

ClearScrn 

KEY{5)  OFF 


END  SUB 


FUNCTION  LJustStrS  (Arg)  STATIC 

'This  function  converts  numeric  argument  into  the  left  justified  string 
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LJustStr$  =  LTRIM$(STR$(Arg) ) 

END  FUNCTION 

SUB  NotifyWindow  (Linel  AS  STRING,  Line2  AS  STRING) 
SCREEN  0,  1,  0,  0 
COLOR  0,  7 


'MAKEWIND  (ULR%,  ULC% ,  LRR% ,  LRC% ,  FRAME% ,  FORE%,  BACK% ,  GROW% ,  SHADOW% ,  LABEL$) 

IF  LEN( Linel)  >  LEN(Line2)  THEN 

ULC%  =  38  -  LEN(Linel)  /  2 

LRC%  =  41  +  LEN (Linel)  /  2 
ELSE 

ULC%  =  38  -  LEN(Line2)  /  2 

LRC%  =  41  +  LEN(Line2)  /  2 
END  IF 

CALL  MAKEWIND (10,  ULC% ,  11,  LRC% ,  2,  4,  7,  0,  TRUE,  "",  RETURN. CODE% ) 

COLOR  15,  7 

LOCATE  10,  40  -  LEN(Linel)  /  2,  0:  PRINT  Linel 

LOCATE  11,  40  -  LEN(Line2)  /  2,  0:  PRINT  Line2 ; 

DO:  LOOP  WHILE  INKEY$  =  " " 

COLOR  0,  7 

END  SUB 

SUB   NumOfGridPoints    (-ExitCode   AS    INTEGER) 

SHARED   nx,    ny,    ns 

'This  subroutine  inputs  number  of  points  in  X  and  Y  direction  and 
'number  of  soil  layers 

PCOPY  0,  1 

CALL  MAKEWIND(5,  LCOL  -  2,  12,  RCOL  +2,  2,  1,  11,  GROW,  SHADOW,  "", 
RETURN. CODE%) 

CALL  FASTPRT("You  will  be  entering  the  grid  of  X  and  Y  points  next.",  5,  LCOL, 
49,  RETURN. CODE%) 

CALL  FASTPRT( "This  grid  will  be  used  to  represent  the  soil  profile.",  6,  LCOL, 
49,  RETURN. CODE%) 

CALL  FASTPRT("  ",  7,  LCOL, 

49,  RETURN. CODE%) 

CALL  FASTPRT( "Please  enter:   Number  of  points  in  X  direction:       ",  8,  LCOL, 
49,  RETURN. CODE%) 

CALL  FASTPRT("  Number  of  points  in  Y  direction:       ",  9,  LCOL, 

49,  RETURN. CODE%) 

CALL  FASTPRT("  Maximum  number  of  Soils:  ",  10,  LCOL, 

49,  RETURN . CODE% ) 

CALL  FASTPRT("  ",  11,  LCOL, 

49,  RETURN. CODE%) 

CALL  FASTPRT ("{ Remember  that  the  slide  occurs  in  the  Y  direction)   ",  12,  LCOL, 
49,  RETURN. CODE%) 

CALL  FASTPRT (LJustStr$(nx)  +  SPACES (3  -  LEN (LJustStrS ( nx ) ) ) ,  8,  60,  10, 
RETURN. CODE%) 

CALL  FASTPRT (LJustStr$(ny)  +  SPACE? (3  -  LEN (LJustStr$ ( ny ) ) ) ,  9,  60,  10, 
RETURN. CODE%) 

CALL  FASTPRT (LJustStr$(ns)  +  SPACE$(3  -  LEN (LJustStr$ (ns ) ) ) ,  10,  53,  10, 
RETURN. CODE%) 

DO 

SELECT  CASE  ExitCode 

CASE  10 

'Input  number  of  points  in  X  direction 
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NewGetIn  LJustStr$ (nx) ,  1,  3,  8,  60,  10,  nx$,  abS 
IF  ab$  =  CHRS(ESC)  THEN 

ExitCode  =  666  ' 666-"Devils"  exitcode 

PCOPY  1,  0 

EXIT  SUB 
ELSE IF  VAL(nx$)  >  MAXCOORD  THEN 

ERROR  252 
ELSE 

nx  =  VAL(nx$) 

ExitCode  =  900 
END  IF 

CASE  900 

'Input  number  of  points  in  Y  direction 

NewGetIn  LJustStr$ (ny) ,  1,  3,  9,  60,  10,  ny$,  ab$ 
IF  ab$  =  CHR$(ESC)  THEN 

CALL  FASTPRT(LJustStr$(ny)  +  SPACE$(1),  9,  60,  10,  RETURN . CODE% ) 

ExitCode  =  10 
ELSEIF  VAL(nyS)  >  MAXCOORD  THEN 

ERROR  251  ., 

ELSE 

ny  =  VAL(ny$)  \  ., 

ExitCode  =11 
END  IF 

CASE  11 

'Input  number  of  soils  

NewGetIn  LJustStr$ (ns)  ,  1,  3,  10,  53,  10,  ns$,  ab$ 
IF  ab$  =  CHR$(ESC)  THEN 

CALL  FASTPRT(LJustStr$(ns)  +  SPACES ( 1 ), ^ 10 ,  53,  10,  RETURN. CODE% ) 

ExitCode  =  900 
ELSEIF  (Filter(ns$,  "1234567890.",  "N")  <>  "")  OR  (VAL(ns$)  =  0)  THEN 

ERROR  2  54 

ns$  =  "" 
ELSEIF  VAL(ns$)  >  MAXSOIL  THEN 

ERROR  2  53 
ELSE 

ns  =  VAL(ns$) 

ExitCode  =  901 
END  IF 

CASE  ELSE 

'Just  in  case.. 

ERROR  247 

ExitCode  =  666  ,     - 

PCOPY  1,0 

EXIT  SUB 

END  SELECT 
LOOP  UNTIL  ExitCode  =  901 
PCOPY  1,  0 
END  SUB 

SUB  OpenDataFile  (ExitCode  AS  INTEGER) 

'This  subroutine  opens  data  file  and  returns  ExitCode=666  if  ESC  was 
'pressed  or  returns  ExitCode=0  as  a  result  of  succesfull  finishing 

CALL  MAKEWIND(2,  3,  18,  78,  2,  11,  1,  0,  FALSE,  "",  RETURN. CODE% ) 
ShowMes$  =  "Press  CNTRL-END  to  suspend  edition" 
CALL  FASTPRT{ShowMes$,  18,  22,  49,  RETURN. CODE% ) 

'  Input  filename 

PCOPY  0,  1 

CALL  MAKEWIND(5,  LCOL  -  2,  9,  RCOL  +  2,  2,  1,  11,  GROW,  SHADOW,  "",  RETURN. CODE% ) 
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CALL  FASTPRT( "Enter  a  Name  for  your  Data  File:  ",  5, 

LCOL,  49,  RETURN. CODE%) 

CALL  FASTPRT ( "  "  ,  6 , 

LCOL,  49,  RETURN. CODE%) 

CALL  FASTPRT ( "Your  data  will  be  written  to  this  file.  ",  7, 

LCOL,  49,  RETURN. CODE%) 

CALL  FASTPRT("If  a  File  with  the  same  name  already  exists,  it  will  be  ",  8, 
LCOL,  49,  RETURN . CODE% ) 

CALL  FASTPRT( "overwritten,  so  please  make  sure  you  use  an  original  name!",  9, 
LCOL,  49,  RETURN. CODE%) 


DO 


NewGetIn  Nam$ ,  0,  12,  5,  45,  10,  TMPNam$ ,  ab$ 

IF  ab$  =  CHR$(ESC)  THEN 

TextLine$(l)  =  "Your  changes  will  be  lost  if  you  exit  edit  mode" 

TextLine$(2)  =  "Please  press  'y'  to  confirm  this  operation" 

TextLine$(3)  =  "Press  any  other  key  to  continue  editing" 

AskWindow  3,  TextLine$(),  KeyPressed$ 


IF  UCASE$(KeyPressed$) 
ExitCode  =  666 
EXIT  SUB 

END  IF 


"Y"  THEN 


ELSEIF  Filter$(TMPNam$,  "  " 

ERROR  2  55 

ExitCode  =  667 

TMPNam$  =  "" 
ELSE 

ExitCode  =  999 

NamS  =  UCASE$( Filter $(TMPNam$, 
END  IF 
LOOP  UNTIL  ExitCode  =  999 


N")  =  ""  THEN 


"N")) 


PCOPY  1,  0 
END  SUB 


SUB  PiezoLine  (ExitCode  AS  INTEGER,  K) 
ExitCode  =  903 
1  =  1 
J  =  1 


initilize  variables 


PCOPY  0,  1 

CALL  MAKEWIND(5,  LCOL  -  2,  14,  RCOL  +2,  2,  1,  11,  GROW,  SHADOW,  "", 
RETURN. CODE%) 

CALL  FASTPRT( "PORE  PRESSURE  DATA  -  Piezometric  Line  Data 
49,  RETURN. CODE%) 

CALL  FASTPRT("For  soil  number     Please  enter  the  piezometric  value 
49,  RETURN. CODE%) 

CALL  FASTPRT{"for  the  coordinates  below: 
49,  RETURN. CODE%) 

CALL  FASTPRT ("X{      )  = 
49,  RETURN. CODE%) 

CALL  FASTPRT ("Y(      )  = 
49,  RETURN. CODE%) 

CALL  FASTPRT ( "===>  piezometric  value  = 
49,  RETURN. CODE%) 

CALL  FASTPRT ("  !!!  REMEMBER  TO  USE  COMPATIBLE  UNITS  !!! 

49,  RETURN. CODE%) 

CALL  FASTPRT(STR$(K) ,  7,  27,  59,  RETURN . CODE% ) 


DO 


DO 


SELECT  CASE  ExitCode 


'begin  I  loop 
'begin  J  loop 


",  5, 

LCOL, 

■',7, 

LCOL, 

",  8, 

LCOL, 

",  10 

LCOL, 

",  11 

LCOL, 

",  13 

LCOL, 

",  14 

LCOL, 
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CASE  903 

CALL  FASTPRT(STR$(I)  +  SPACE$(1),  10,  14,  59,  RETURN. CODE% ) 
CALL  FASTPRT{STR$(x(I) )  +  SPACE$(4),  10,  21,  59,  RETURN. CODE% ) 
CALL  FASTPRT(STRS( J)  +  SPACES (1),  11/  14,  59,  RETURN. CODE% ) 
CALL  FASTPRT(STR$(y( J) )  +  SPACES (4),  11/  21,  59,  RETURN. CODE% ) 
NewGetIn  LJustStr$ (uz( I,  J,  K) ) ,  1,  7,  13,  38,  10,  uz$,  ab$ 

IF  ab$  =  CHR$(ESC)  AND  1=1  AND  J  =  1  THEN 

ExitCode  =  666 

PCOPY  1,  0 

EXIT  SUB 
ELSEIF  ab$  =  CHR$(ESC)  AND  J  =  1  THEN 

1  =  1-1 

J  =  ny 

ExitCode  =  903 
ELSEIF  ab$  =  CHR$(ESC)  THEN 

J  =  J  -  1 

ExitCode  =  903 
ELSEIF  Filter (uzS,  "-1234567890. " ,  "N" )  <>  ""  THEN 

ERROR  2  54 

uz$  =  "" 
ELSE 

uz(I,  J,  K)  =  VAL(uz$) 

'PRINT  #3,  uz(I,  J,  K) ; 

ExitCode  =  903 

J  =  J  +  1 
END  IF 

END  SELECT 
LOOP  WHILE  J  <=  ny 

'PRINT  #3, 
J  =  1 
I  =  I-  +  1 
LOOP  WHILE  I  <=  nx 

PCOPY  1,  0  ... 

END  SUB 

SUB  PorePresData  (ExitCode  AS  INTEGER) 

IF  ExitCode  =  80  THEN 

K  =  1  'initialize  variables 

ELSEIF  ExitCode  =  88  THEN 

K  =  ns 

ExitCode  =  80 
END  IF 

DO  'begin  K  loop 

SELECT  CASE  ExitCode 
CASE  80 

PCOPY  0,  1 

CALL  MAKEWIND(5,  LCOL  -  2,  15,  RCOL  +  2,  2,  1,  11,  GROW,  SHADOW, 
RETURN. CODE %) 

CALL  FASTPRT( "PORE  PRESSURE  DATA: 
",  5,  LCOL,  49,  RETURN. CODE%) 

CALL  FASTPRT( "Please  select  the  porepressure  model  type  from  the 
list",  7,  LCOL,  49,  RETURN. CODE% ) 

CALL  FASTPRT( "below: 
,  8,  LCOL,  49,  RETURN. CODE%) 

CALL  FASTPRT("1  -  Pore  pressure  ratio  (Ru) 
,  10,  LCOL,  49,  RETURN. CODE%) 

CALL  FASTPRT("2  -  Piezometric  Surfaces 
,  11,  LCOL,  49,  RETURN. CODE%) 

CALL  FASTPRT("For  soil  number     ,  the  model  you  choose  is: 
,  13,  LCOL,  49,  RETURN. CODE%) 

CALL  FASTPRT("  (Enter  1  or  2 ) 

,  14,  LCOL,  49,  RETURN. CODE%) 
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ExitCode  =  900 

CASE  900 

CALL  FASTPRT(STR$(K) ,  13,  27,  59,  RETURN. CODE% ) 

NewGetIn  LJustStr$ (utype (K) ) ,  1,  1,  13,  58,  10,  utype$,  ab$ 

IF  ab$  =  CHR$(ESC)  AND  K  =  1  THEN 

ExitCode  =  666 

PCOPY  1,  0 

EXIT  SUB 
ELSEIF  ab$  =  CHR$(ESC)  THEN 

ExitCode  =  900 

K  =  K  -  1 
ELSEIF  Filter(utype$,  "-1234567890 . " ,  "N")  <>  ""  THEN 

ERROR  2  54 

utype S  =  "" 
ELSE 

utype (K)  =  VAL(utype$) 

'PRINT  #3,  utype (K) ; 

'PRINT  #3, 

IF  utype (K)  =  1  THEN 
PCOPY  0,  2 
CALL  FASTPRT( "Then  enter  Ru  for  this  soil:  ",  15,  LCOL,  49, 


RETURN. CODE%) 


NewGetIn  LJustStr? ( ru (K) ) ,  1,  6,  15,  43,  10,  ru$,  abS 
IF  ab$  =  CHR${ESC)  THEN 

PCOPY  2,  0 

ExitCode  =  900 
ELSEIF  Filter(ru$,  "-1234567890 . " ,  "N" )  <>  ""  THEN 

ERROR  2  54 

ru$  =  "" 
ELSE 

ru(K)  =  VAL(ru$) 

'PRINT  #3,  ru 

ExitCode  =  900 

K  =  K  +  1 

PCOPY  2,  0 
END  IF 

ELSEIF  utype(K)  =  2  THEN 
PCOPY  1,  0 

PiezoLine  ExitCode,  K 
IF  ExitCode  =  666  THEN 

ExitCode  =  80 
ELSE 

ExitCode  =  80 
K  =  K  +  1 
END  IF 
ELSE 

ERROR  250 
END  IF 
END  IF 
END  SELECT 
LOOP  WHILE  K  <=  ns 
PCOPY  1,  0 
END  SUB 

SUB  PrintData  (ExitCode  AS  INTEGER) 

TextLine$(l)  =  "Your  data  are  about  to  be  written  to  the  file  "  +  UCASE$(NamS; 
TextLine$(2)  =  "To  confirm  operation  press  'y'" 
TextLine$(3)  =  "Any  other  key  will  bring  you  back" 

AskWindow  3,  TextLine$(),  KeyPressed$ 

IF  UCASE$(KeyPressed$)  =  "Y"  THEN 
PCOPY  0,  4 
NotifyWindow  "Please  wait",  "Your  data  are  been  procesed" 
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ELSE 

ExitCode  =  666 

EXIT  SUB 
END  IF 

OPEN  Nam$  FOR  OUTPUT  AS  #3 

' ■ file  header  for  data  file 

PRINT  #3,  "PCSTBL3D  Version  2.0" 

' print  number  of  data  points  and  number  of  soils 

PRINT  #3,  nx,  ny 
PRINT  #3,  ns 

' print  X  coordinates 

FOR  I  =  1  TO  nx 

PRINT  #3,  x{I)  ; 
NEXT  I 
PRINT  #3, 

' print  y  coordinates 

FOR  I  =  1  TO  ny 

PRINT  #3,  y(I)  ; 
NEXT  I 
PRINT  #3, 

' print  soil  coordinates • 

FOR  K  =  1  TO  ns 

FOR  I  =  1  TO  nx 

FOR  J  =  1  TO  ny 

PRINT  #3,  z(I,  J,  K)  ; 
NEXT  J 
PRINT  #3, 
NEXT  I  ' 

NEXT  K 

' print  surface  generation  data  1 

PRINT  #3,  xaprin 

PRINT  #3,  yamin;  dyamin;  yamax;  dyamax 

' print  surface  generation  data  2 

FOR  I  =  1  TO  ny 

PRINT  #3,  xminl(I);  dxminl ( I ) ;  xmin2(I);  dxmin2 ( I ) 
NEXT  I 

' print  vertical  constarints 

FOR  I  =  1  TO  nx 

FOR  J  =  1  TO  ny 

PRINT  #3,  zmin(I,  J);  dzmin(I,  J) ; 
NEXT  J 
PRINT  #3, 
NEXT  I 

' print  soil  properties 

FOR  I  =  1  TO  ns 

PRINT  #3,  Gama(I),  C(I),  Fi(I) 
NEXT  I 

' print  pore  pressure  data 

FOR  K  =  1  TO  ns 

PRINT  #3,  utype(K) ; 

PRINT  #3, 

IF  utype(K)  =  1  THEN 

PRINT  #3,  ru(K) 
ELSE 

FOR  I  =  1  TO  nx 

FOR  J  =  1  TO  ny 

PRINT  #3,  uz(I,  J,  K)  ; 
NEXT  J 
PRINT  #3, 
NEXT  I 
END  IF 
NEXT  K 
CLOSE 
PCOPY  4,  0 

END  SUB 
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SUB  SoilCoord  (ExitCode  AS  INTEGER) 

IF  ExitCode  =  30  THEN 

IndexM  =  1   'Initialize  index  variables 

Indexl  =  1 

IndexJ  =  1 
ELSEIF  ExitCode  =  33  THEN 

IndexM  =  ns 

Indexl  =  nx 

IndexJ  =  ny 
END  IF 

PCOPY  0,  1 

CALL  MAKEWIND(5,  LCOL  -  2,  11,  RCOL  +  2,  2,  1,  11,  GROW,  SHADOW,  "" 
RETURN. CODE%) 

CALL  FASTPRTC'Now  you  will  enter  the  soil  layers  coordinates  for 
49,  RETURN. CODE%) 

CALL  FASTPRT( "each  grid  point: 
49,  RETURN. CODE%) 

CALL  FASTPRTC'For  SOIL  number: 
49,  RETURN. CODE%) 

CALL  FASTPRTC'For  point  X(     ),  and  Y(     )  enter  value  of  Z  = 
49,  RETURN. CODE%) 

CALL  FASTPRT( "Remember  to  use  consistent  length  units... 
49,  RETURN. CODE%) 

FOR  M  =  IndexM  TO  ns 

FOR  I  =  Indexl  TO  nx 

FOR  J  =  IndexJ  TO  ny 

CALL  FASTPRT(STR$(M) ,  8,  28,  59,  RETURN. CODE% ) 

CALL  FASTPRT(STR$(I)  +  SPACE$(1),  9,  24,  59,  RETURN. CODE% ) 

CALL  FASTPRT(STR$(J)  +  SPACE$(1),  9,  37,  59,  RETURN. CODE% ) 

NewGetIn  LJustStr$ ( z ( I,  J,  M) ) ,  1,  6,  9,  63,  10,  z$,  ab$ 

IF  ab$  =  CHR$(ESC)  AND  M  =  1  AND  1=1  AND  J  =  1  THEN 

ExitCode  =  666 

PCOPY  1,  0 

EXIT  SUB 
ELSEIF  ab$  =  CHRS(ESC)  AND  1=1  AND  J  =  1  THEN 

M  =  M  -  1 

I  =  ny 

J  =  ny  -  1 
ELSEIF  ab$  =  CHR$(ESC)  AND  J  =  1  THEN 

1  =  1-1 

J  =  ny  -  1 
ELSEIF  ab$  =  CHR$(ESC)  THEN 

J  =  J  -  2 
ELSEIF  Filter(z$,  "-1234567890 . " ,  "N")  <>  ""  THEN 

ERROR  2  54 

z$  =  "" 

J  =  J  -  1 
ELSE 

z(I,  J,  M)  =  VAL(z$) 
'PRINT  #3,  z(I,  J,  M) ; 
END  IF 
NEXT  J 

NEXT  I 
NEXT  M 
PCOPY  1,  0 
END  SUB 


5,  LCOL, 

6,  LCOL, 

8,  LCOL, 

9,  LCOL, 
11,  LCOL, 


SUB  SoilPropData  (ExitCode  AS  INTEGER) 

IF  ExitCode  =  70  THEN 
1  =  1 
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ELSE 

I  =  ns 
END  IF 

PCOPY  0,  1 

CALL  MAKEWIND(5,  LCOL  -  2,  16,  RCOL  +2,  2,  1,  11,  GROW,  SHADOW, 
RETURN. CODE%) 


CALL  FASTPRT( "Soil  Properties  Data: 
RETURN. CODE%) 

CALL  FASTPRT("Now  you  will  enter  the  strength  properties  of 
RETURN. CODE%) 

CALL  FASTPRTC'the  soils: 
RETURN. CODE%) 

CALL  FASTPRT("For  soil  number     , enter: 
RETURN. CODE%) 

CALL  FASTPRT( "Unit  weight  

RETURN. CODE%) 

CALL  FASTPRT ( "Cohesion  

RETURN. CODE%) 

CALL  FASTPRT ( "Shear  Angle  

RETURN. CODE%) 

CALL  FASTPRT ("    !!!  REMEMBER  TO  USE  COMPATIBLE  UNITS  !!! 
RETURN. CODE%) 


5,  LCOL,  49, 

7,  LCOL,  49, 

8,  LCOL,  49, 
10,  LCOL,  49, 

12,  LCOL,  49, 

13,  LCOL,  49, 

14,  LCOL,  49, 
16,  LCOL,  49, 


CALL  FASTPRT{LJustStr${Gan\a(I) )  +  SPACE$(6  -  LEN(LJustStr$ (Gama ( I ) ) ) ) ,  12,  36, 
10,  RETURN. CODE%) 

CALL  FASTPRT(LJustStr$(C(I) )  +  SPACES(6  -  LEN(LJustStrS ( C ( I ) ) ) ) ,  13,  36,  10, 
RETURN. CODE%) 

CALL  FASTPRT(LJustStr$(Fi(I) )  +  SPACE$(6  -  LEN{LJustStr$ ( Fi ( I ) ) ) ) ,  14,  36,  10, 
RETURN. CODE%)  ' 


DO 


SELECT  CASE  ExitCode 

CASE  70 

CALL  FASTPRT (STR$ (I) ,  10,  28,  59,  RETURN. CODE% ) 

NewGetIn  LJustStr$ (Gama( I ) ) ,  1,  6,  12,  36,  10,  Gama$,  ab$ 

IF  ab$  =  CHR$(ESC)  AND  1=1  THEN 

ExitCode  =  666 

PCOPY  1,  0 

EXIT  SUB 
ELSEIF  ab$  =  CHR${ESC)  THEN 

1  =  1-1 

CALL  FASTPRT(LJustStrS(Gama(I) )  +  SPACE$(6  - 
LEN{LJustStr$(Gama(I) ) ) ) ,  12,  36,  10,  RETURN. CODE% ) 

CALL  FASTPRT(LJustStr$(C(I) )  +  SPACE$(6  -  LEN (LJustStrS ( C ( I ) ) ) ) ,  13, 
36,  10,  RETURN. CODE%) 

CALL  FASTPRT ( LJustStr$( Fi(I) )  +  SPACE$(6  -  LEN (LJustStr$ ( Fi ( I ) ) ) ) , 
14,  36,  10,  RETURN. CODE%) 

ExitCode  =  77 
ELSEIF  Filter(Gama$,  "-1234567890 . " ,  "N")  <>  ""  THEN 

ERROR  2  54 

GamaS  =  "" 
ELSE 

Gama(I)  =  VAL(Gama$) 

ExitCode  =  900 
END  IF 


CASE  900 

NewGetIn  LJustStrS (C( I ) 
IF  ab$  =  CHR$(ESC)  THEN 

ExitCode  =  70 
ELSEIF  Filter(C$,  "-1234567890 

ERROR  2  54 

C$  =  "" 
ELSE 

C(I)  =  VAL(C$) 

ExitCode  =  77 


1,  6,  13,  36,  10,  C$,  ab$ 
"N")  <>  ""  THEN 
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END  IF  ■       ^    ^ 

CASE  77  "■^.„^ 

CALL  FASTPRT(STR$(I) ,  10,  28,  59,  RETURN. CODE% )  ~: 

NewGetIn  LJustStrS (Fi( I ) ) ,  1,  6,  14,  36,  10,  Fi$,  ab$ 
IF  ab$  =  CHR$(ESC)  THEN 

ExitCode  =  900 
ELSEIF  Filter{Fi$,  "-1234567890 . " ,  "N")  <>  ""  THEN 

ERROR  2  54 

Fi$  =  "•• 
ELSE 

Fi{I)  =  VAL(Fi$) 

'PRINT  #3,  Gama,  C,  Fi 

ExitCode  =  70 

1  =  1  +  1 

CALL  FASTPRT(LJustStr$(Gama(I) )  +  SPACE$(6  - 
LEN{LJustStr$(Gama(I) ) ) ) ,  12,  36,  10,  RETURN. CODE% ) 

CALL  FASTPRT{LJustStr$(C(I) )  +  SPACE$(6  -  LEN(LJustStr$ (C ( I ) ) ) ) ,  13, 
36,  10,  RETURN. CODE%) 

CALL  FASTPRT(LJustStr$(Fi(I) )  +  SPACE$(6  -  LEN (LJustStr$ ( Fi ( I ) ) ) ) , 
14,  36,  10,  RETURN. CODE%) 

END  IF 

END  SELECT 
LOOP  WHILE  I  <=  ns 
PCOPY  1,  0 
END  SUB 

SUB  SurfGenerDatal  (ExitCode  AS  INTEGER) 

PCOPY  0,  1 

CALL  MAKEWIND(5,  LCOL  -  2,  15,  RCOL  +2,  2,  1,  11,  GROW,  SHADOW,  "", 
RETURN. CODE %) 

CALL  FASTPRT( "Data  for  Surface  Generation:  ",  5,  LCOL, 

49,  RETURN. CODE%) 

CALL  FASTPRT( "Enter  number  N  where  X(N)  would  be  the  Principal  Axis  ",  7,  LCOL, 
49,  RETURN. CODE%) 

CALL  FASTPRT("of  Sliding  (ex:  x(3)->  N=3 )  ",  8,  LCOL, 

49,  RETURN. CODE%) 

CALL  FASTPRT("On  the  principal  axis  of  Sliding,  enter  search  limits:",  10,  LCOL, 
49,  RETURN. CODE %) 

CALL  FASTPRT( "Initiation  value  of  Y,(Ymin)  ",12,  LCOL, 

49,  RETURN. CODE%) 

CALL  FASTPRT(  "Range  of  Ymin  ",  13,  LCOL, 

49,  RETURN. CODE%) 

CALL  FASTPRT( "Termination  value  of  Y,  (Ymax)  ",  14,  LCOL, 

49,  RETURN. CODE%) 

CALL  FASTPRT(  "Range  of  Ymax  ",  15,  LCOL, 

49,  RETURN. CODE%) 

CALL  FASTPRT(LJustStr$(xaprin)  +  SPACE$(3  -  LEN (LJustStr$ ( xaprin) ) ) ,  8,  60,  10, 
RETURN. CODE%) 

CALL  FASTPRT(LJustStr$ (yamin)  +  SPACE$(3  -  LEN (LJustStr$ ( yamin) ) ) ,  12,  60,  10, 
RETURN. CODE%) 

CALL  FASTPRT(LJustStr$ (dyamin)  +  SPACE$(3  -  LEN (LJustStr$ (dyamin ) ) ) ,  13,  60,  10, 
RETURN. CODE%) 

CALL  FASTPRT(LJustStr$(yamax)  +  SPACE$(3  -  LEN (LJustStr$ (yamax ) ) ) ,  14,  60,  10, 
RETURN. CODE %) 

CALL  FASTPRT(LJustStr$(dyamax)  +  SPACE$(3  -  LEN (LJustStr$ ( dyamax ) ) ) ,  15,  60,  10, 
RETURN. CODE%) 

DO 

SELECT  CASE  ExitCode 

CASE  40 

NewGetIn  LJustStr$ (xaprin) ,  1,  3,  8,  60,  10,  xaprinS,  ab$ 
IF  ab$  =  CHR$(ESC)  THEN 
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^,-  FxitCode  =  666 
--'     PCOPy  1,  0 

EXIT  SUB 
ELSEIF  Filter(xaprin$,  "-1234567890 . " ,  "N" )  <>  ""  THEN 

ERROR  2  54 

xaprin$  =  "" 
ELSE 

xaprin  =  VAL(xaprin$) 

ExitCode  =  900 
END  IF 

CASE  900 

NewGetIn  LJustStr$ (yamin) ,  1,  3,  12,  60,  10,  yamin$,  ab$ 
IF  ab$  =  CHR$(ESC)  THEN 

CALL  FASTPRT (LJustStr$( yamin ) ,  12,  60,  10,  RETURN. CODE%) 
ExitCode  =  40 
ELSEIF  Filter ( yamin $,  "-1234567890. " ,  "N")  <>  ""  THEN 
ERROR  254 
yaminS  =  "" 
ELSE 

yamin  =  VAL(yamin$) 
IF  yamin  <=  y(l)  THEN 
ERROR  244 
ExitCode  =  900 
ELSE 

ExitCode  =  901 
END  IF 
END  IF 

CASE  901 

NewGetIn  LJustStrS (dyamin) ,  1,  3,  13,  60,  10,  dyamin$,  ab$ 
IF  ab$  =  CHR$(ESC)  THEN 

CALL  FASTPRT(LJustStr$(dyamin) ,  13,  60,  10,  RETURN. CODE% ) 

ExitCode  =  900 
ELSEIF  Filter (dyamin$,  "-1234567890 . " ,  "N" )  <>  ""  THEN 

ERROR  254 

dyarain$  =  "" 
ELSE 

dyamin  =  VAL{dyaminS) 

ExitCode  =  902 
END  IF 

CASE  902 

NewGetIn  LJustStr? (yamax) ,  1,  3,  14,  60,  10,  yamax$,  ab$ 
IF  ab$  =  CHR$(ESC)  THEN 

CALL  FASTPRT ( LJustStr$ ( yamax ) ,  14,  60,  10,  RETURN. CODE% ) 

ExitCode  =  901 
ELSEIF  Filter (yamax$,  "-1234567890 . " ,  "N")  <>  " "  THEN 

ERROR  2  54 

yamaxS  =  "•• 
ELSE 

ExitCode  =  44 

yamax  =  VAL( yamax?) 
END  IF 

CASE  44 

NewGetIn  LJustStr$ (dyamax) ,  1,  3,  15,  60,  10,  dyamax$,  ab$ 
IF  ab$  =  CHR$(ESC)  THEN 

CALL  FASTPRT (LJustStr$( dyamax ) ,  15,  60,  10,  RETURN. CODE% ) 
ExitCode  =  902 
ELSEIF  Filter (dyamax$,  "-1234567890 . " ,  "N")  <>  ""  THEN 
ERROR  254 
dyamax $  =  "" 
ELSE 

dyamax  =  VAL( dyamax $) 
IF  yamax  +  dyamax  >=  y(ny)  THEN 
ERROR  245 
ExitCode  =  44 
ELSE 
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ExitCode  =  999 
END  IF 
END  IF 

END  SELECT 

LOOP  UNTIL  ExitCode  =  999 
PCOPY  1,  0 
END  SUB 

SUB  SurfGenerData2  (ExitCode  AS  INTEGER) 

IF  ExitCode  =  50  THEN 

Indexl  =  1 
ELSE 

Indexl  =  ny 
END  IF 

PCOPY  0,  1 

CALL  MAKEWIND(5,  LCOL  -  2,  15,  RCOL  +2,  2,  1,  11,  GROW,  SHADOW,  "", 
RETURN. CODE%) 

CALL  FASTPRT( "Data  for  Surface  Generation: 
LCOL,  49,  RETURN. CODE%) 

CALL  FASTPRT("you  will  enter  boundary  conditions  for  the  search 
LCOL,  49,  RETURN. CODE%) 

CALL  FASTPRT( "specifying  the  width  of  the  random  surfaces: 
LCOL,  49,  RETURN. CODE%) 

CALL  FASTPRT("On  the  axis  parallel  to  X  on  the  coordinate  Y(     ),  enter: 
LCOL,  49,  RETURN. CODE%) 

CALL  FASTPRT( "Left  initiation  value  of  X  

LCOL,  49,  RETURN. CODE%) 

CALL  FASTPRT ( "Range  of  left  X  

LCOL,  49,  RETURN. CODE%) 

CALL  FASTPRT ( "Right  initiation  value  of  X  

LCOL,  49,  RETURN. CODE%) 

CALL  FASTPRT ("Range  of  right  X. 

LCOL,  49,  RETURN. CODE%) 


5, 

7, 

8, 

10, 

12, 

13, 

14, 

15, 

FOR  I  =  Indexl  TO  ny 

CALL  FASTPRT(STR$(I)  +  SPACE$(1),  10,  58,  59,  RETURN. CODE% ) 

CALL  FASTPRT(LJustStr$(xminl(I) )  +  SPACE$(3  -  LEN( LJustStr$ (xminl ( I ) ) ) ) ,  12, 
59,  10,  RETURN. CODE%) 

CALL  FASTPRT(LJustStr$(dxminl(I) )  +  SPACE$(3  -  LEN ( LJustStr$ ( dxminl ( I ) ) ) ) ,  13, 
59,  10,  RETURN. CODE%) 

CALL  FASTPRT(LJustStr$(xmin2(I) )  +  SPACE$(3  -  LEN (LJustStr$ ( xmin2 ( I ) ) ) ) ,  14, 
59,  10,  RETURN. CODE%) 

CALL  FASTPRT(LJustStr$(dxmin2(I) )  +  SPACE$(3  -  LEN (LJustStr$ ( dxmin2 ( I ) ) ) ) ,  15, 
59,  10,  RETURN. CODE%) 


DO 


SELECT  CASE  ExitCode 


CASE  50 

NewGetIn  LJustStr$ (xminl ( I ) ) ,  1,  3,  12,  59,  10,  xminl$,  ab$ 
IF  ab$  =  CHR$(ESC)  AND  1=1  THEN 
ExitCode  =  566 
PCOPY  1,  0 
EXIT  SUB 
ELSEIF  ab$  =  CHR$(ESC)  THEN 
1  =  1-1 

CALL  FASTPRT (STR$ (I)  +  SPACE$(1),  10,  58,  59,  RETURN . CODE% ; 
CALL  FASTPRT ( L JustStr $( xminl(I) )  +  SPACE$(3  - 
LEN(LJustStr$(xminl(I) ) ) ) ,  12,  59,  10,  RETURN. CODE% ) 

CALL  FASTPRT (LJustStr$( dxminl ( I) )  +  SPACE$(3  - 
LEN(LJustStr$(dxminl(I) ) ) ) ,  13,  59,  10,  RETURN. CODE% ) 


240 


CALL  FASTPRT{LJustStrS(xmin2(I) )  +  SPACES(3  - 
LEN(LJustStr$(xmin2(I) ) ) ) ,  14,  59,  10,  RETURN. CODE% ) 

CALL  FASTPRT(LJustStr$ (dxmin2(I) )  +  SPACE$(3  - 
LEN(LJustStr$(dxmin2 (I) ) ) ) ,  15,  59,  10,  RETURN. CODE% ) 

ExitCode  =  55 
ELSEIF  Filter (xminl$,  "-1234567890. " ,  "N")  <>  ""  THEN 

ERROR  254 

xminl$  =  "" 
ELSE 

xminl(I)  =  VAL(xminl$) 

ExitCode  =  900 
END  IF 

CASE  900 

NewGetIn  LJustStr$(dxminl(I) ),  1,  3,  13,  59,  10,  dxminl$,  ab$ 
IF  ab$  =  CHR$(ESC)  THEN 

CALL  FASTPRT(LJustStr$(dxminl(I) ) ,  13,  59,  10,  RETURN. CODE% ) 

ExitCode  =  50 
ELSEIF  Filter(dxmin$,  "-1234557890 . " ,  "N")  <>  ""  THEN 

ERROR  2  54 

dxmin$  =  " " 
ELSE 

dxminl(I)  =  VAL(dxminl$) 

ExitCode  =  901 
END  IF 

CASE  901 

NewGetIn  LJustStr$ (xmin2 ( I ) ) ,  1,  3,  14,  59,  10,  xmin2$,  ab$ 
It-  abS  =  CHR$(ESC)  THEN 

CALL  FASTPRT(LJustStr$(xmin2(I) ) ,  14,-59,  10,  RETURN. CODE% ) 

ExitCode  =  900 
ELSEIF  Filter (xmin2$,  "-1234567890 . " ,  "N")  <>  ""  THEN 

EFtROR    2  54 

xmin2$    =    "" 
ELSE 

xmin2(I)    =   VAL(xmin2$) 

ExitCode  =  55 
END  IF 

CASE  5  5 

NewGetIn  LJustStr$(dxmin2 (I) ) ,  1,  3,  15,  59,  10,  dxmin2$,  ab$ 
IF  ab$  =  CHR$(ESC)  THEN 

CALL  FASTPRT(LJustStr$(dxmin2(I) ) ,  15,  59,  10,  RETURN. CODE% ) 

ExitCode  =  901 
ELSEIF  Filter(dxmin2$,  "-1234567890 . " ,  "N")  <>  ""  THEN 

ERROR  2  54 

dxmin2$  =  "" 
ELSE 

ExitCode  =  999 

dxmin2(I)  =  VAL(dxmin2$) 
END  IF 

END  SELECT 

LOOP  UNTIL  ExitCode  =  999 

IF  I  <  ny  THEN 

ExitCode  =  50  ,„  ■ 

END  IF 

NEXT  I 
PCOPY  1,0 

END  SUB 


SUB  VerticConstr  (ExitCode  AS  INTEGER) 

IF  ExitCode  =  60  THEN 
1  =  1 
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J  =  1 

ELSE 

I  =  nx 

J  =  ny 
END  IF 

PCOPY  0,  1 

CALL  MAKEWIND(5,  LCOL  -  2,  11,  RCOL  +  2,  2,  1,  11,  GROW,  SHADOW,  "", 
RETURN. CODE %) 

CALL  FASTPRT("Now  you  will  enter  the  searching  constrains  for  the 
49,  RETURN. CODE%) 

CALL  FASTPRT( "search  in  the  Z  (vertical)  direction  for  all  the  grid: 
49,  RETURN. CODE%) 

CALL  FASTPRT("For  point  X(     ),  and  Y(  )    enter  value  of  Zmin  = 

49,  RETURN. CODE%) 

CALL  FASTPRT("  delta  Z  = 

49,  RETURN. CODE%) 

CALL  FASTPRT( "Remember  to  use  consistent  length  units... 
49,  RETURN. CODE%) 


5,  LCOL, 

6,  LCOL, 

9,  LCOL, 

10,  LCOL, 

11,  LCOL, 


CALL  FASTPRT(LJustStr$ (zmin{I,  J))  +  SPACES (6  -  LEN (LJustStr$ ( zmin ( I ,  J)))),  9, 
65,  10,  RETURN. CODE%) 

CALL  FASTPRT(LJustStr$(dzmin(I,  J))  +  SPACE$(6  -  LEN (LJustStr$ ( dzmin( I ,  J)))), 
10,  65,  10,  RETURN. CODE%) 

DO  'Start  I  loop 

DO  ' start  J  loop 

SELECT  CASE  ExitCode 

CASE  60 

CALL  FASTPRT(STR$(I)  +  SPACE$(1),  9,  24,  59,  RETURN . CODE% ) 
CALL  FASTPRT(STR$(J)  +  SPACE$(1),  9,  37,  59,  RETURN. CODE% ) 
CALL  FASTPRT(LJustStr$(zmin(I,  J))  +  SPACE$(6  -  LEN (LJustStr$ ( zmin ( I , 
J)))),  9,  65,  10,  RETURN . CODE% ) 

CALL  FASTPRT(LJustStr$(dzmin(I,  J))  +  SPACE$(6  - 
LEN(LJustStr$(dzmin(I,  J)))),  10,  65,  10,  RETURN. CODE% ) 

NewGetIn  LJustStr$ ( zmin ( I ,  J)),  1,  6,  9,  65,  10,  zmin$,  ab$ 
IF  ab$  =  CHR$(ESC)  AND  1=1  AND  J  =  1  THEN 

ExitCode  =  666 

PCOPY  1,  0 

EXIT  SUB 
ELSEIF  ab$  =  CHR$(ESC)  AND  J  =  1  THEN 

1  =  1-1 

J  =  ny 

CALL  FASTPRT(LJustStr5(zmin(I,  J)),  9,  65,  10,  RETURN . CODE% ) 

ExitCode  =  66 
ELSEIF  ab$  =  CHR$(ESC)  THEN 

J  =  J  -  1 

CALL  FASTPRT(LJustStr$(zmin(I,  J)),  9,  65,  10,  RETURN. CODE% ) 

ExitCode  =  66 
ELSEIF  Filter (zminS,  "-1234567890 . " ,  "N" )  <>  ""  THEN 

ERROR  2  54 

zmin$  =  "" 
ELSE 

2min(I,  J)  =  VAL(zmin$) 

ExitCode  =  66 
END  IF 

CASE  66 

CALL  FASTPRT(STR$(I)  +  SPACE$(1),  9,  24,  59,  RETURN. CODE% ) 
CALL  FASTPRT(STR$ ( J)  +  SPACE$(1),  9,  37,  59,  RETURN . CODE% ) 
CALL  FASTPRT(LJustStr$(zmin(I,  J))  +  SPACE5(6  -  LEN ( LJustStr$ ( zmin ( I , 

J)))),  9,  65,  10,  RETURN. CODE%) 

CALL  FASTPRT(LJustStr$(dzmin(I,  J))  +  SPACES (6  - 

LEN(LJustStr$(dzmin(I,  J)))),  10,  65,  10,  RETURN. CODE% ) 

NewGetIn  LJustStrS (dzmin ( I ,  J)),  1,  6,  10,  65,  10,  dzmin$,  ab$ 
IF  ab$  =  CHR$(ESC)  THEN 

CALL  FASTPRT(LJustStr$(dzmin(I,  J)),  10,  65,  10,  RETURN. CODE% ) 
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ExitCode  =  60 
ELSEIF  Filter(dzminS,  "-1234567890 . " ,  "N")  <>  ""  THEN 
ERROR  2  54 
dzminS  =  "" 
ELSE 

dzmin(I,  J)  =  VAL(dzmin$) 

IF  zmin(I,  J)  +  dzmin(I,  J)  >=  z(I,  J,  1)  THEN 

ERROR  246 
ELSE 

J  =  J  +  1 
ExitCode  =  60 
END  IF 
END  IF 


END  SELECT 

LOOP  WHILE  J  <= 
'PRINT  #3, 


ny 


1  =  1  +  1 

J  =  1 

LOOP  WHILE  I  <=  nx 

PCOPY  1,  0 

END  SUB 

SUB  XYCoord  (ExitCode  AS  INTEGER) 

SHARED  x{ ) ,  y( ) 

IF  ExitCode  =  20  THEN 

IndexX  =  1      'Initialize  variables 

IndexY  =  1 
ELSEIF  ExitCode  =  22  THEN 

IndexX  =  nx 

IndexY  =  ny 
ELSE 
END  IF 


PCOPY  0,  1 

CALL  MAKEWIND(5,  LCOL  -  2,  11,  RCOL  +  2,  2,  1,  11,  GROW,  SHADOW, 
RETURN. CODE %) 

CALL  FASTPRT("Now  you  will  enter  the  actual  coordinates  of  the 
RETURN. CODE%) 

CALL  FASTPRT ( "points . . . 
RETURN. CODE%) 

CALL  FASTPRT { " 
RETURN. CODE%) 

CALL  FASTPRT("For  point  X(      ) 
RETURN. CODE %) 

CALL  FASTPRT ("For  point  Y(     ) 
RETURN. CODE%) 

CALL  FASTPRT ( " 
RETURN. CODE%) 

CALL  FASTPRT ( "Remember  to  use  consistent  length  units. 
RETURN. CODE%) 


enter  its  coordinate  value: 
enter  its  coordinate  value: 


5,  LCOL,  49, 

6,  LCOL,  49, 

7,  LCOL,  49, 

8,  LCOL,  49, 

9,  LCOL,  49, 

10,  LCOL,  49, 

11,  LCOL,  49, 


CALL  FASTPRT (STR$( IndexX)  +  SPACE$(1),  8,  24,  59,  RETURN . CODE% ) 
CALL  FASTPRT (STR$( IndexY)  +  SPACE$(1),  9,  24,  59,  RETURN. CODE% ) 

CALL  FASTPRT (LJustStr$(x( IndexX) )  +  SPACE? (6  -  LEN (LJustStrS (x ( IndexX) ))) ,  8,  63, 
10,  RETURN. CODE%) 

CALL  FASTPRT(LJustStr$ (y( IndexY) )  +  SPACE$(6  -  LEN(LJustStr$ (y ( IndexY )))) ,  9,  63, 
10,  RETURN. CODE%) 


DO 


SELECT  CASE  ExitCode 
CASE  20 
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FOR  I  =  IndexX  TO  nx 

CALL  FASTPRT(STR$(I)  +  SPACE$(1),  8,  24,  59,  RETURN. CODE% ) 
NewGetIn  LJustStr$ (x ( I ) ) ,  1,  6,  8,  63,  10,  x$,  ab$ 

IF  ab$  =  CHR$(ESC)  AND  1=1  THEN 

ExitCode  =  666 

PCOPY  1,  0 

EXIT  SUB 
ELSEIF  ab$  =  CHR$(ESC)  THEN 

1  =  1-2 
ELSEIF  Filter (x$,  "-1234567890 . " ,  "N" )  <>  ""  THEN 

ERROR  2  54 

x$  =  "" 

1  =  1-1 
ELSE 

x{I)  =  VAL(x$) 
END  IF 
NEXT  I 
ExitCode  =  22 


CASE  22 


FOR  J  =  IndexY  TO  ny 

CALL  FASTPRT(STR$( J)  +  SPACE$(1),  9,  24,  59,  RETURN. CODE% ) 
NewGetIn  LJustStr$ (y ( J) ) ,  1,  6,  9,  63,  10,  y$,  ab$ 
IF  abS  =  CHR$(ESC)  AND  J  =  1  THEN 

CALL  FASTPRT(LJustStr$(y(J) ) ,  9,  63,  10,  RETURN . CODE% ) 

ExitCode  =  20 

IndexX  =  nx 

EXIT  FOR 
ELSEIF  abS  =  CHR$(ESC)  THEN 

J  =  J  -  2 
ELSEIF  Filter(y$,  "-1234567890 . " ,  "N")  <>  ""  THEN 

ERROR  2  54 

y$  =  •■" 
J  =  J  -  1 
ELSE 

y(J)  =  VAL(y$) 

'PRINT  #3,  y(J) ; 
END  IF 
NEXT  J 

IF  J  =  1  THEN 

ExitCode  =  20 
ELSE 

'PRINT  #3, 

ExitCode  =  900 
END  IF 


END  SELECT 

LOOP  UNTIL  ExitCode  =  900 
PCOPY  1,  0 
END  SUB 
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DECLARE  SUB  PopDira  (SEARCHS,  SHOWITEMS%,  FORE%,  BACK%,  HFORE%,  HBACK%,  QUADRANT$, 

SHADOW%,  NUMFILES%,  SELECTFILE$,  RETURN . CODE% ) 

'$ INCLUDE:  'CURRENTB. BI ' 

'Block  INFILE  works  with  POPUPS.LIB  and  GETIN.BAS 

LocalHandler: 
GlobalHandler 
RESUME  NEXT 

REM  $DYNAMIC 

SUB  InFile  (ExitCode  AS  INTEGER) 

ON  ERROR  GOTO  LocalHandler 

Footer 

CALL  MAKEWIND(2,  3,  18,  78,  2,  11,  1,  GROW,  NOSHADOW,  " " ,  RETURN. CODE% ) 

CALL  MAKEWIND(4,  LCOL  -  2,  5,  RCOL  +  2,  2,  1,  11,  GROW,  SHADOW,  "",  RETURN. CODE% ) 

IF  Caller$  =  "geometry"  THEN 

CALL  FASTPRT( "Select  the  name  of  the  file  with  the  3D  geometry  you  want",  4, 
LCOL,  49,  RETURN . CODE% ) 

CALL  FASTPRT("to  read  ...     Use  the  cursor  keys  and  press  <enter>      ",  5, 
LCOL,  49,  RETURN . CODE% ) 

ELSEIF  Callers  =  "edit"  THEN 

CALL  FASTPRT("  Select  the  name  of  the  data  file  you  would  like  to  edit  ",  4, 
LCOL,  49,  RETURN. CODE%) 

CALL  FASTPRT("  Use  the  cursor  keys  and  press  <enter>      ",  5, 

LCOL,  49,  RETURN. CODE%) 
END  IF 

DO 

CALL  PopDira("*.*",  6,  0,  11,  0,  11,  "0",  1,  numf%,  NamS,  RETURN. CODE% ) 

IF  Nam$  =  ""  THEN 

ExitCode  =  655 

EXIT  SUB 
END  IF 

OPEN  Nam$  FOR  INPUT  AS  #1 

checking  if  file  is  legal  


LINE  INPUT  #1,  LegalS 

IF  Legal$  <>  "PCSTBL3D  Version  2.0"  THEN 

ERROR  249 

ExitCode  =  666 

CLOSE 
ELSE 

ExitCode  =  999 
END  IF 

LOOP  UNTIL  ExitCode  <>  665 

COLOR  1,  7 

ClearScrn 

PCOPY  0,  3 

NotifyWindow  "Please  wait",  "Reading  data  file  "  +  Nam$ 


INPUT  #1,  nx,  ny 
INPUT  #1,  ns 


FOR  I  =  1  TO  nx 
INPUT  #1,  x(I) 

NEXT  I 


FOR  I  =  1  TO  ny 
INPUT  #1,  y(I) 


input  nx,  ny,  ns 


enter  X  coordinates 


enter  Y   coordinates 
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NEXT  I 

' enter  Z  coordinates 

FOR  M  =  1  TO  ns 

FOR  I  =  1  TO  nx 

FOR  J  =  1  TO  ny 

INPUT  #1,  z(I,  J,  M) 

NEXT  J 
NEXT  I 
NEXT  M 

' input  surf  generation  data  1  • 

INPUT  #1,  xaprin 

INPUT  #1,  yamin,  dyamin,  yamax,  dyamax 

' input  surf  generation  data  2  • 

FOR  I  =  1  TO  ny 

INPUT  #1,  xminl(I),  dxminl(I),  xmin2 ( I ) ,  dxmin2 ( I ) 
NEXT  I 


' input  vertical  constraints 

FOR  I  =  1  TO  nx 

FOR  J  =  1  TO  ny 

INPUT  #1,  zmin(I,  J),  dzmin{I,  J) 

NEXT  J 
NEXT  I 


' input  soil  properties 

FOR  I  =  1  TO  ns 

INPUT  #1,  Gama(I),  C(I),  Fi(I) 
NEXT  I 

' pore  pressure  models  - 


FOR  K  =  1  TO  ns 

INPUT  #1,  utype(K) 

IF  utype(K)  =  1  THEN 

INPUT  #1,  ru 
ELSE 

FOR  I  =  1  TO  nx 

FOR  J  =  1  TO  ny 

INPUT  #1,  uz(I,  J,  K) 
NEXT  J 
NEXT  I 
END  IF 

NEXT  K 
CLOSE 
PCOPY  3,  0 

END  SUB 

REM  $ STATIC 

'  * 

SUB  PROGRAM  NAME            (PARAMETERS)                   STATIC/RECURSIVE  * 
' * 

SUB  PopDira  (SEARCH?,  SHOWITEMS%,  FORE%,  BACK% ,  HFORE%,  HBACK% ,  QUADRANT?,  SHADOW%, 
NUMFILES%,  SELECTFILE$,  RETURN. CODE% )  STATIC 

DEFINT  A-Z  'make  all  short  interger  by  default 

RETURN. CODE%  =  0 
DIR. RETURN. CODE  =  0 
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'  not  sure  that  FILES$  will  be  a  FAR  array,  as  it  is  a  var.  length  string 

REM     $DYNAMIC  'allocate  array  off  far  heap 

DIM  FILES$(1)  'allocate  an  array  of  only  1  element 

REM     $STATIC  'default  arrays  back  to  Basic  data 
segment 

FILES. MIN%  =  UBOUND( FILES $)  'this  set  LBOUND  to  OPTION  BASE  1  also 

DIM  SIZE. OF. FILE  AS  STRING  *  10 

POPDIR. START: 

ATTR=&HOOFF 
ATTR  =  NUMFILES% 

ATTR  =  ATTR  AND  &HFF 

COUNT  =  &HFFOO  OR  ATTR  'Get  number  of  filenames  that  match 

SEARCH $ 

I  =  INT(VARPTR(FILES${FILES.MIN%) ) )     'get  pointer  to  start  of  array  to  hold    ' 
filenames  found 

CALL  DIR(SEARCH$,  I,  COUNT,  DIR. RETURN. CODE )' see  how  many  files  match  our 
filename  spec. 

IF  {COUNT  =  -1)  OR  (COUNT  =  0)  THEN     'were  any  matching  filenames  found?       i 
NUMFILES%  =0  'NO      ,  ! 

SELECTFILES  =  "" 
RETURN. CODE%  =  -2 
GOTO  POPDIR. DONE 

END  IF 

NUMFILES%  =  COUNT 

IF  COUNT  >  0  THEN  'allocate  the  filename  array  big 

REDIM  FILES$(FILES.MIN%  TO  FILES. MIN%  +  COUNT) ' enough  to  hold  all  the 
filenames 

END  IF 

HEADER$  =  SEARCH$  'this  was  the  filename  spec  used  for 

serach 

FOR  I  =  FILES. MIN%  TO  FILES. MIN%  +  COUNT'make  each  entry  big  enough  to  hold  a 
filename 

FILESS(I)  =  SPACE$(22) 
NEXT 

COUNT  =  ATTR 

I  =  INT(VARPTR(FILES$ (FILES. MIN%) ) ) 

CALL  DIR(SEARCH$,  I,  COUNT,  DIR. RETURN. CODE ) 

FOR  I  =  FILES. MIN%  TO  FILES. MIN%  +  COUNT 

SELECTFILES  =  FILES$(I) 

GOSUB  EXPAND. FILES 

FILES$(I)  =  SELECTFILES 
NEXT 

MAXITEMS  =  COUNT  'this  many  file  names  can  be  displayed 

SHOWFILES  =  SHOWITEMS%  'but  only  display  this  many  at  a  time 

SELECT. %  =  FILES. MIN% 
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CALL  POPLIST(HEADER$,  SHOWFILES,  MAXITEMS,  FILES$(),  FORE%,  BACK% ,  HFORE%, 
HBACK%,  QUADRANTS,  SHADOW% ,  SELECT. %,  RETURN . CODE% ) 

IF  SELECT. %  =  0  THEN 

SELECTFILES  =  "" 
ELSE 

SELECTFILE$  =  LEFT$ (FILES$ (SELECT. %) ,  12)       'return  the  filename 
selected 

END  IF 

GOTO  POPDIR.DONE 

EXPAND. FILES: 

FILENAMES  =  LEFT$ ( SELECTFILE$ ,  13) 
ASCIIZ  =  INSTR( FILENAMES,  CHR$ ( 0 ) ) 
IF  ASCIIZ  >  0  THEN 

FILENAMES  =  LEFTS ( FILENAMES ,  ASCIIZ  -  1) 
END  IF 

FILENAMES  =  FILENAMES  +  SPACES (80) 

FILE.ATTRS  =  MIDS ( SELECTFILE$ ,  14,  1) 
FILE.ATTR  =  ASC ( FILE . ATTRS ) 

FILESIZES  =  "" 
FILEATTRS  =  "" 

IF  (FILE.ATTR  AND  &H10)  <>  0  THEN 

FILESIZES  =  "   <DIR> 
END  IF 

IF  (FILE.ATTR  AND  &H8 )  <>  0  THEN 

FILEATTRS  =  FILEATTRS  +  "+  LABEL   " 
END  IF 

IF  (FILE.ATTR  AND  &H2 )  <>  0  THEN 

FILEATTRS  =  FILEATTRS  +  "+  HIDDEN  " 
END  IF 

IF  (FILE.ATTR  AND  6iH4 )  <>  0  THEN 

FILEATTRS  =  FILEATTRS  +  "+  SYSTEM  " 
END  IF 

IF  (FILE.ATTR  AND  &H1)  <>  0  THEN 

FILENATTRS  =  "+READONLY" 
END  IF 

IF  (FILE.ATTR  AND  &H20)  <>  0  THEN 

FILEATTRS  =  FILEATTRS  +  "+  ARCHIVE" 
END  IF 

MONTHS  =  MIDS(SELECTFILES,  17,  1) 
MONTH  =  ASC (MONTHS)  AND  &HEO 
MONTH  =  MONTH  /  32 

MONTHS  =  MIDS(SELECTFILES,  18,  1) 
MONTH. TEMP  =  ASC (MONTHS)  AND  &H1 
MONTH. TEMP  =  MONTH. TEMP  *  8 

MONTH  =  MONTH  +  MONTH. TEMP 

DAYS  =  MID$(SELECTFILES,  17,  1) 
DAY  =  ASC (DAYS)  AND  &H1F 

YEARS  =  MID$(SELECTFILE$,  18,  1) 

YEAR  =  ASC (YEARS)  AND  &HFE  ' 

YEAR  =  YEAR  /  2 

YEAR  =  1980  +  YEAR 
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HOURS$  =  MID$(SELECTFILES,  16,  1) 
HOURS  =  ASC( HOURS $)  AND  &HF8 
HOURS  =  HOURS  /  8 

MINUTESS  =  MID$(SELECTFILE$,  16,  1) 
MINUTES  =  ASC( MINUTESS)  AND  &H3 
MINUTES  =  MINUTES  *  8 

MINUTESS  =  MID$(SELECTFILE$,  15,  1) 
MINUTES. TEMP  =  ASC (MINUTES? )  AND  &HEO 
MINUTES. TEMP  =  MINUTES. TEMP  /  32 
MINUTES  =  MINUTES  +  MINUTES. TEMP 

-"  0 
SECONDS?  =  MID$(SELECTFILE$,  15,  1)  ■; 

SECONDS  =  ASC(SECONDSS)  AND  &H1F 
SECONDS  =  SECONDS  *  2 

FILESIZE.ADDR  =  VARPTR( FILESIZE&) 

POKE  FILESIZE.ADDR,  ASC (MID$ ( SELECTFILE$ ,  19,  1)) 

FILESIZE.ADDR  =  VARPTR( FILESIZE& ) 

POKE  FILESIZE.ADDR  +  1,  ASC (MID$ ( SELECTFILES ,  20,  1)) 

FILESIZE.ADDR  =  VARPTR( FILESIZE& ) 

POKE  FILESIZE.ADDR  +  2,  ASC(MID$ ( SELECTFILE$ ,  21,  1)) 

FILESIZE.ADDR  =  VARPTR( FILESIZE&) 

POKE  FILESIZE.ADDR  +  3,  ASC{MID$ { SELECTFILE$ ,  22,  1)) 

IF  FILESIZE$  =  ""  THEN 

FILESIZE$  =  STR${FILESIZE&), 

SIZE. OF. FILE  =  SPACE$(10) 

RSET  SIZE. OF. FILE  =  FILESIZE$ 

FILESIZE$  =  SIZE. OF. FILE 
END  IF 

FILEDATE$  =  RIGHTS ( STR$ (MONTH) ,  2)  +  "-"  +  RIGHTS ( STR$ (DAY ) ,  2)  +  "-"  + 
RIGHTS (STRS (YEAR) ,  2) 

INSTR.POS  =  INSTR(2,  FILEDATES,  "  " ) 

IF  INSTR.POS  >  1  THEN 

MID$( FILEDATES,  INSTR.POS,  1)  =  "0" 
END  IF 

FILETIMES  =  RIGHTS (STRS (HOURS) ,  2)  +  " : "  +  RIGHTS ( STR$ (MINUTES ) ,  2) 

INSTR.POS  =  INSTR(2,  FILETIMES,  "  ") 

IF  INSTR.POS  >  1  THEN 

MIDS( FILETIMES,  INSTR.POS,  1)  =  "0" 
END  IF 

MID S (FILENAMES,  13)  =  FILESIZES 
MIDS( FILENAMES,  24)  =  FILEDATES 
MIDS( FILENAMES,  34)  =  FILETIMES 
MIDS ( FILENAMES , 40 ) =FILEATTRS 

FILENAMES  =  LEFTS (RTRIMS ( FILENAMES ) ,  12) 

SELECTFILES  =  FILENAMES 

RETURN 

I 

POPDIR.DONE: 

ERASE  FILESS  'free  memory  allocated  to  array 

HEADERS  =  "" 
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FILENAMES  = 
FILESIZE$  = 
FILEATTR$  = 
FILETIMES  = 
FILEDATE$  = 
MONTHS  =  "' 
DAY$  =  "" 
YEARS  =  "" 
HOURS $  =  "• 
MINUTESS  = 
SECONDSS  = 


END  SUB 
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APPENDIX  D 


NEGATIVE  NUMBERS  FOR  PRINTS 


Film         Negative 
Figure       Number      Number 


Location  of  Negative 


8 

1 

All  negatives  located  at  the  following 

9 

3 

address: 

10 

5 

PURDUE  UNIVERSITY 

11 

7 

SCHOOL  OF  CIVIL  ENGINEERINC 

12 

9 

West  T  <ifayette,  IN  47907 

13 

12 

Room  G245 

14 

17 

(317)  494-5034 

15 

19 

16 

24 

17 

26 

18 

30 

19 

2 

1 

20 

2 

4 

21 

2 

10 

z  I 

^  I 

o 


CD  I 
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